Create getkeys.R