diff --git a/DESCRIPTION b/DESCRIPTION index 2ac88ee..827cdcf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -23,7 +23,7 @@ URL: https://github.com/OHDSI/SelfControlledCaseSeries BugReports: https://github.com/OHDSI/SelfControlledCaseSeries/issues Depends: R (>= 4.0.0), - Cyclops (>= 3.2.0), + Cyclops (>= 3.4.0), DatabaseConnector (>= 6.0.0), Andromeda Imports: diff --git a/extras/MultiAnalysesVignetteDataFetch.R b/extras/MultiAnalysesVignetteDataFetch.R index 71f9212..d9cca82 100644 --- a/extras/MultiAnalysesVignetteDataFetch.R +++ b/extras/MultiAnalysesVignetteDataFetch.R @@ -316,9 +316,32 @@ databases <- tibble( DatabaseConnector::insertTable( connection = connection, databaseSchema = "main", - tableName = "databases", + tableName = "database_meta_data", data = databases, dropTableIfExists = TRUE, createTable = TRUE ) DatabaseConnector::disconnect(connection) + +# Launch Shiny app: +databaseFile <- file.path(outputFolder, "export", "SccsResults.sqlite") +connectionDetails <- DatabaseConnector::createConnectionDetails( + dbms = "sqlite", + server = databaseFile +) +resultDatabaseDetails <- list( + dbms = connectionDetails$dbms, + tablePrefix = 'sccs_', + cohortTablePrefix = 'cg_', + databaseTablePrefix = '', + schema = "main", + databaseTable = 'database_meta_data' +) +sccsModule <- ShinyAppBuilder::createDefaultSccsConfig() +aboutModule <- ShinyAppBuilder::createDefaultAboutConfig() +shinyAppConfig <- ShinyAppBuilder::initializeModuleConfig() %>% + ShinyAppBuilder::addModuleConfig(aboutModule) %>% + ShinyAppBuilder::addModuleConfig(sccsModule) +connectionHandler <- ResultModelManager::ConnectionHandler$new(connectionDetails) +ShinyAppBuilder::viewShiny(shinyAppConfig, connectionHandler) +connectionHandler$closeConnection() diff --git a/extras/SelfControlledCaseSeries.pdf b/extras/SelfControlledCaseSeries.pdf index 55b0266..5483bdb 100644 Binary files a/extras/SelfControlledCaseSeries.pdf and b/extras/SelfControlledCaseSeries.pdf differ