processMedicationChoiceAnswers <- function(json_file) {
tryCatch({
d <- jsonlite::fromJSON(json_file)
data.frame(medication = paste(unique(d$identifier),
collapse = ", "), medicationTime = paste(unique(d$answer),
collapse = ", "))
}, error = function(err) {
data.frame(medication = "NA", medicationTime = "NA")
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.