Nothing
## RH 2022-10-30
#### SETUP ####
if (!at_home()) exit_file("Reason: not at_home")
source("setup_ctrdata.R")
if (!checkDuckdb()) exit_file("Reason: no DuckDB")
if (!checkInternet()) exit_file("Reason: no internet connectivity")
#### CTGOV ####
tf <- function() {
# create database object
dbc <- suppressWarnings(nodbi::src_duckdb(
dbdir = ":memory:",
collection = mongoLocalRwCollection))
# register clean-up
on.exit(expr = {
try({
if (DBI::dbExistsTable(conn = dbc$con, name = dbc$collection))
DBI::dbRemoveTable(conn = dbc$con, name = dbc$collection)
duckdb::dbDisconnect(dbc$con, shutdown = TRUE)
rm(dbc)
},
silent = TRUE)
}, add = TRUE)
# check server
if (httr::status_code(
httr::HEAD("https://euclinicaltrials.eu/",
httr::timeout(10L))) != 200L
) return(exit_file("Reason: CTIS not working"))
# do tests
source("ctrdata_ctis.R", local = TRUE)
}
tf()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.