viewCharacterization - Interactively view the characterization results
Source:R/ViewShiny.R
viewCharacterization.RdThis is a shiny app for viewing interactive plots and tables
Examples
conDet <- exampleOmopConnectionDetails()
drSet <- createDechallengeRechallengeSettings(
targetIds = c(1,2),
outcomeIds = 3
)
cSet <- createCharacterizationSettings(
dechallengeRechallengeSettings = drSet
)
runCharacterizationAnalyses(
connectionDetails = conDet,
targetDatabaseSchema = 'main',
targetTable = 'cohort',
outcomeDatabaseSchema = 'main',
outcomeTable = 'cohort',
cdmDatabaseSchema = 'main',
characterizationSettings = cSet,
outputDirectory = file.path(tempdir(),'view')
)
#> Creating directory /tmp/RtmpEZab1m/view
#> Creating directory /tmp/RtmpEZab1m/view/execution
#> Creating new cluster
#> Inputs checked
#> Connecting using SQLite driver
#> Computing dechallenge rechallenge results
#> | | | 0% | |======== | 11% | |================ | 22% | |======================= | 33% | |=============================== | 44% | |======================================= | 56% | |=============================================== | 67% | |====================================================== | 78% | |============================================================== | 89% | |======================================================================| 100%
#> Executing SQL took 0.00766 secs
#> Computing dechallenge rechallenge for 2 target ids and 1 outcome ids took 0.0741 secs
#> exporting to csv file
#> Writing 0 rows to csv
#> Inputs checked
#> Connecting using SQLite driver
#> Computing dechallenge rechallenge fails results
#> | | | 0% | |======== | 11% | |================ | 22% | |======================= | 33% | |=============================== | 44% | |======================================= | 56% | |=============================================== | 67% | |====================================================== | 78% | |============================================================== | 89% | |======================================================================| 100%
#> Executing SQL took 0.0183 secs
#> Computing dechallenge failed case series for 2 target IDs and 1 outcome IDs took 0.0787 secs
#> exporting to csv file
#> Writing 0 rows to csv
viewCharacterization(
resultFolder = file.path(tempdir(),'view')
)
#> No csv results to view via shiny
#> [1] FALSE