R/returnparams.R

In eruud/eric.pilr.r:

## Get params for a participant and save as a JSON
# Eric Ruud, MEI Research Ltd. eruud@meinergy.com

# mark script for NAMESPACE inclusion
#'@export
returnparams <- function(data, params) {
  # define export JSON filename
  export_file <- "export.json"

  # Format params as JSON
  json_params <- jsonlite::toJSON(params)

  # Write JSON to textfile
  write(json_params, export_file)

  base64_rep <- base64enc::base64encode(export_file)

  # Save JSON to files list
  files <- list(json_params = jsonlite::unbox(base64_rep))

  # processed$pt <- unique(import$pt)[1]
  # processed$id <- system(paste0("uuid", " -v4", " -n", nrow(processed)), intern = TRUE)
  # processed$timestamp <- import$timestamp[1]
  # export <- c(pt = "EpochRangeTest_Schdeuled", id = "31fd11da-a0c7-4df1-bc89-c19db7035f3a", timestamp = "2015-06-22T17:22:24Z", local_timestamp = "2015-06-22T17:22:24Z")
  # datasets <- list(export = export)

  # Return datasets and files
  list(datasets = c(), files = files)
}