knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(easyRecg)
By default, read_muse_xml_meta
returns all meta data available. The returned object is a named list of data frames (or tibbles). The function can take a file path or a collection of file paths. If more than one file path is present, the results are appended together.
# Get sample file file1 <- ecg_example("muse/muse_ecg1.xml") meta1 <- read_muse_xml_meta(file1, ids = 1) meta1
In some cases, you may not want all data returned (e.g. to avoid sharing PHI). To do so, you can take a whitelisting, blacklisting, or mixed approach.
To include only certain data sets or columns, you can specify a named list of dataframes and columns. If a named element is NA
, all variables from that dataset are returned.
Here, we will return only muse data, patient id and age, and test date.
include <- list( muse_info = NA, patient_demographics = c("patient_id", "patient_age", "age_units"), test_demographics = "acquisition_date" ) read_muse_xml_meta(file1, include = include, id = 1)
Similar to whitelisting, you can specifiy specific data sets or elements to exclude. Here, if a named element is NA
, the entire dataset is removed.
Let's remove all resting ecg data along with patient names:
exclude <- list( resting_ecg_measurements = NA, original_resting_ecg_measurements = NA, patient_demographics = c("patient_last_name") ) read_muse_xml_meta(file1, exclude = exclude, ids = 1)
If you want more flexibility but don't want to type out all names/variables, you can use both include
and exclude
. The same logic above applies here, however the include
is always executed first.
Here, we will return all patient demographics except name:
# Only consider the patient demographics include <- list(patient_demographics = NA) # Remove patient name exclude <- list(patient_demographics = c("patient_last_name")) read_muse_xml_meta(file1, include = include, exclude = exclude, ids = 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.