test_folder <- tempfile(pattern = "folder_")
public_key_folder <- paste0(test_folder, "/public_key_folder")
private_key_folder <- paste0(test_folder, "/private_key_folder")
dir.create(test_folder)
dir.create(public_key_folder)
dir.create(private_key_folder)
results <- EQUAL_encrypt_generate_keys(
public_key_folder = public_key_folder,
private_key_folder = private_key_folder,
key_name = "encryption_key.txt")
Run the code above in your browser using DataLab