if (FALSE) {
# Using sample Parquet files from `mtcars` dataset
dir <- system.file("extdata", package = "rcdf")
# Not encrypted
read_parquet(file.path(dir, "mtcars.parquet"))
# Encrypted
read_parquet(
file.path(dir, "mtcars-encrypted.parquet"),
decryption_key = 'rppqM5CuEqotys4wQq/g7xh6wpIjRozcAIbI9sagwKE='
)
}
Run the code above in your browser using DataLab