# NOT RUN {
#' This will run:
# genkeys()
# gp_encrypt = gp %>%
# select(-c(name, address1, address2, address3)) %>%
# encrypt(postcode, telephone)
# gp_encrypt %>%
# decrypt(postcode, telephone)
# }
# NOT RUN {
# For CRAN and testing:
library(dplyr)
temp_dir = tempdir()
genkeys(file.path(temp_dir, "id_rsa")) # temp directory for testing only
gp_encrypt = gp %>%
select(-c(name, address1, address2, address3)) %>%
encrypt(postcode, telephone, public_key_path = file.path(temp_dir, "id_rsa.pub"))
gp_encrypt %>%
decrypt(postcode, telephone, private_key_path = file.path(temp_dir, "id_rsa"))
# }
Run the code above in your browser using DataLab