# Using sample Parquet files from `mtcars` dataset
dir <- system.file("extdata", package = "rcdf")
# Without decryption
df <- read_parquet(file.path(dir, "mtcars.parquet"))
df
# With decryption
decryption_key <- list(
aes_key = "5bddd0ea4ab48ed5e33b1406180d68158aa255cf3f368bdd4744abc1a7909ead",
aes_iv = "7D3EF463F4CCD81B11B6EC3230327B2D"
)
df_with_encryption <- read_parquet(
file.path(dir, "mtcars-encrypted.parquet"),
decryption_key = decryption_key
)
df_with_encryption
Run the code above in your browser using DataLab