# NOT RUN {
library(dplyr)
genkeys(file.path(tempdir(), "id_rsa") # temp directory for testing only
gp_encrypt = gp %>%
select(-c(name, address1, address2, address3)) %>%
encrypt(postcode, telephone)
# }
Run the code above in your browser using DataLab