knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
This is an example of how to use the TidyTrials package. This package is essentially an XML wrapper to extract and tidy trials from ClinicalTrials.Gov. The package exists because clinical trials have a broad audience but the data is currently inaccessible to researchers who might be unfamiliar with parsing XML files (i.e. statisticians, geneticists and maybe some computational biologists).
This package was developed as part of my PhD when I linked a proteomic panel to ClinicalTrials.Gov to identify known or suspected drug targets as part of our target identification campaign. However, the family of functions have grown to extract more variables.
library(TidyTrials)
# This reads in one of the example files example_file <- system.file("extdat", "NCT00160147.xml", package = "TidyTrials")
Eligibility <- extract_eligibility(trial_path = example_file) knitr::kable(Eligibility)
Outcomes <- extract_outcome(trial_path = example_file) knitr::kable(Outcomes)
Conditions <- extract_conditions(trial_path = example_file) knitr::kable(Conditions)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.