## ----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, ...)