inst/template/Package/extras/getCdmSources.R

In gowthamrao/StudyManagement: An OHDSI R package to conduct reproducible research.

data <- ROhdsiWebApi::getCdmSources(baseUrl) %>%
  dplyr::filter(toupper(sourceKey) %in%
                  toupper(sourceKeys)) %>%
  tidyr::as_tibble()



localServer <- paste0(localServerPath, '/cdm_sources', '.sqlite')
localServerConnectionDetails <- DatabaseConnector::createConnectionDetails(dbms = localServerDbms,
                                                                           server = localServer,
                                                                           port = localServerPort)
localServerConnection = DatabaseConnector::connect(connectionDetails = localServerConnectionDetails)


DatabaseConnector::insertTable(connection = localServerConnection,
                               tableName = 'cdm_sources',
                               data = data,
                               dropTableIfExists = TRUE,
                               createTable = TRUE,
                               tempTable = FALSE,
                               useMppBulkLoad = useMppBulkLoad,
                               camelCaseToSnakeCase = TRUE
                              )



sql <- "select * from @databaseSchema.cdm_sources"
sql <- SqlRender::render(sql = sql,
                         warnOnMissingParameters = TRUE,
                         databaseSchema = localServerSchema)
sql <- SqlRender::translate(sql = sql, targetDialect = localServerDbms)
cdmSources <- DatabaseConnector::querySql(connection = localServerConnection, sql = sql) %>%
            dplyr::rename_all(SqlRender::snakeCaseToCamelCase)
DatabaseConnector::disconnect(connection = localServerConnection)