## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf(
#   data,
#   path,
#   pub_key,
#   ...,
#   metadata = list(),
#   ignore_duplicates = TRUE
# )

## ----eval=FALSE---------------------------------------------------------------
# library(rcdf)
# # Sample data (list of data frames)
# data <- rcdf_list()
# data$table1 = data.frame(x = 1:10, y = letters[1:10])
# data$table2 = data.frame(a = rnorm(10), b = rnorm(10))
# 
# # You can generate a new RSA key pair using the following function:
# key <- generate_rsa_keys(
#   path = "path/to/rsa-keys",
#   password = "1234" # this is optional
# )
# 
# # Write the data to an RCDF file
# write_rcdf(data = data, path = "path/to/rcdf_file.rcdf", pub_key = key)

## ----eval=FALSE---------------------------------------------------------------
# read_rcdf(
#   path,
#   decryption_key,
#   ...,
#   password = NULL,
#   metadata = list(),
#   ignore_duplicates = TRUE,
#   recursive = FALSE,
#   return_meta = FALSE
# )

## ----eval=FALSE---------------------------------------------------------------
# # Using sample RCDF data
# dir <- system.file("extdata", package = "rcdf")
# 
# # mtcars.rcdf is a sample RCDF file included in the package for demonstration purposes only.
# rcdf_path <- file.path(dir, 'mtcars.rcdf')
# 
# # This is also a sample key built into the package.
# private_key <- file.path(dir, 'sample-private-key.pem')
# 
# rcdf_data <- read_rcdf(path = rcdf_path, decryption_key = private_key)
# rcdf_data
# 

## ----eval=FALSE---------------------------------------------------------------
# # Using encrypted/password protected private key
# rcdf_path_pw <- file.path(dir, 'mtcars-pw.rcdf')
# private_key_pw <- file.path(dir, 'sample-private-key-pw.pem')
# pw <- '1234'
# 
# rcdf_data_with_pw <- read_rcdf(
#   path = rcdf_path_pw,
#   decryption_key = private_key_pw,
#   password = pw
# )
# rcdf_data_with_pw
# 

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_csv(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_csv(data = rcdf_data, path = "path/to/output", row.names = FALSE)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_tsv(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_tsv(data = rcdf_data, path = "path/to/output", row.names = FALSE)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_json(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_json(data = rcdf_data, path = "path/to/output", pretty = TRUE)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_parquet(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_parquet(data = rcdf_data, path = "path/to/output")

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_xlsx(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_excel(data = rcdf_data, path = "path/to/output.xlsx", sheetName = "Sheet1")

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_dta(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_dta(data = rcdf_data, path = "path/to/output")

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_sav(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_sav(data = rcdf_data, path = "path/to/output")

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_sqlite(data, path, ..., parent_dir = NULL)

## ----eval=FALSE---------------------------------------------------------------
# write_rcdf_sqlite(data = rcdf_data, path = "path/to/output")

## ----eval=F-------------------------------------------------------------------
# write_rcdf_as(data, path, formats, ...)