inst/tinytest/test_ctrdata_mariadb_remote_ctgov2.R

In ctrdata: Retrieve and Analyze Clinical Trials Data from Public Registers

## RH 2022-10-30

#### SETUP ####
if (!at_home()) exit_file("Reason: not at_home")
source("setup_ctrdata.R")

if (!checkMariadb())   exit_file("Reason: no MariaDB")
if (!checkInternet()) exit_file("Reason: no internet connectivity")

#### CTGOV ####
tf <- function() {

  # create database object
  dbc <- suppressWarnings(nodbi::src_mariadb(
    # dbname = "test",
    collection = mongoLocalRwCollection,
    #
    host = "ralfheroldmacbook2024.taile722d.ts.net",
    user = "nodbiuser",
    password = "nodbipwd"))

  # 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)

  # do tests
  source("ctrdata_ctgov2.R", local = TRUE)

}

# check server
if (httr::status_code(
  httr::HEAD("https://www.clinicaltrials.gov/",
             httr::timeout(10L))) != 200L
) return(exit_file("Reason: CTGOV2 not working"))

# test
tf()