## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.