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

## ----eval=FALSE---------------------------------------------------------------
#  # Install the package from GitHub
#  devtools::install_github("yng-me/rcdf")

## ----eval=FALSE---------------------------------------------------------------
#  library(rcdf)

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

## ----eval=FALSE---------------------------------------------------------------
#  # 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))
#  
#  # Sample public RSA key (for encryption)
#  pub_key <- file.path(system.file("extdata", package = "rcdf"), "sample-public-key.pem")
#  
#  # Write the data to an RCDF file
#  write_rcdf(data = data, path = "path/to/rcdf_file.rcdf", pub_key = pub_key)

## ----eval=FALSE---------------------------------------------------------------
#  read_rcdf(path, decryption_key, ..., password = NULL, metadata = NULL)

## ----eval=FALSE---------------------------------------------------------------
#  # Using sample RCDF data
#  dir <- system.file("extdata", package = "rcdf")
#  rcdf_path <- file.path(dir, 'mtcars.rcdf')
#  private_key <- file.path(dir, 'sample-private-key.pem')
#  
#  rcdf_data <- read_rcdf(path = rcdf_path, decryption_key = private_key)
#  rcdf_data
#  
#  # 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, ...)