inst/jobs/chemidplus/00_export_chemidplus_schema.R

In meerapatelmd/skyscraper: Scrape Clinical Drug Data

library(tidyverse)
library(secretary)
library(chariot)
library(pg13)
library(skyscraper)
library(rubix)
library(glitter)
library(sinew)


conn <- chariot::connectAthena()
skyscraper::export_schema_to_data_repo(conn = conn,
                                       target_dir = "~/GitHub/chemidplusData/",
                                       schema = "chemidplus")
chariot::dcAthena(conn = conn)


if (!interactive()) {
        report_file <- paste0("~/Desktop/chemidplus_00_export_chemidplus_schema_", Sys.Date(), ".txt")
        cat(paste0("[", Sys.time(), "]\n"), file = report_file, append = TRUE)
}