Encrypt a data frame or tibble column using an RSA public/private key

Encrypt a data frame or tibble column using an RSA public/private key

encrypt(.data, ..., public_key_path = "id_rsa.pub", lookup = FALSE,
  lookup_name = "lookup", write_lookup = TRUE)

Arguments

.data	A data frame or tibble.
...	The unquoted names of columns to encrypt.
public_key_path	Character. A quoted path to an RSA public key created using genkeys.
lookup	Logical. Whether to substitute the encrypted columns for key-column of integers.
lookup_name	Character. A quoted name to give lookup table and file.
write_lookup	Logical. Write a lookup table as a .csv file.

Value

The original dataframe or tibble with the specified columns encrypted.

Examples

# This will run:
# genkeys()
# gp_encrypt = gp %>%
#   select(-c(name, address1, address2, address3)) %>%
#   encrypt(postcode, telephone)

# For CRAN and testing:
library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union
temp_dir = tempdir()
genkeys(file.path(temp_dir, "id_rsa2")) # temp directory for testing only
#> Private key written with name '/tmp/RtmpoFe9u2/id_rsa2'
#> Public key written with name '/tmp/RtmpoFe9u2/id_rsa2.pub'
gp_encrypt = gp %>%
  select(-c(name, address1, address2, address3)) %>%
  encrypt(postcode, telephone, public_key_path = file.path(temp_dir, "id_rsa2.pub"))