# NOT RUN {
# create a (CMK) key
k <- create_kms_key()
# generate a data key for local encryption
datakey <- generate_data_key(key = k)
## encrypt something locally using datakey$Plaintext
## then delete the plaintext key
datakey$Plaintext <- NULL
# decrypt the encrypted data key
datakey$Plaintext <- decrypt(datakey$CiphertextBlob, k, encode = FALSE)
## then use this to decrypt locally
# cleanup
delete_kms_key(k)
# }
Run the code above in your browser using DataLab