## RH 2019-09-28
#### SETUP ####
if (!at_home()) exit_file("Reason: not at_home")
source("setup_ctrdata.R")
if (!checkMongoLocal()) exit_file("Reason: no local MongoDB")
if (!checkInternet()) exit_file("Reason: no internet connectivity")
#### CTGOV ####
tf <- function() {
# create database object
dbc <- nodbi::src_mongo(
db = mongoLocalRwDb,
collection = mongoLocalRwCollection,
url = "mongodb://localhost")
# register clean-up
on.exit(expr = {
try({
dbc$con$drop()
dbc$con$disconnect()
},
silent = TRUE)
})
# check server
if (httr::status_code(
httr::HEAD("https://www.clinicaltrials.gov/",
httr::timeout(10L))) != 200L
) return(exit_file("Reason: CTGOV2 not working"))
# do tests
source("ctrdata_ctgov2.R", local = TRUE)
}
tf()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.