> source("D:/_YES/workspace/HowOftenApp/appForCovid.R", echo=TRUE)

> library(OhdsiShinyModules)

> library(ShinyAppBuilder)

> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union


> library(ShinyAppBuilder)

> library(markdown)

> # echo some info about the environment
> print(R.Version())
$platform
[1] "x86_64-w64-mingw32"

$arch
[1] "x86_64"

$os
[1] "mingw32"

$crt
[1] "ucrt"

$system
[1] "x86_64, mingw32"

$status
[1] ""

$major
[1] "4"

$minor
[1] "3.2"

$year
[1] "2023"

$month
[1] "10"

$day
[1] "31"

$`svn rev`
[1] "85441"

$language
[1] "R"

$version.string
[1] "R version 4.3.2 (2023-10-31 ucrt)"

$nickname
[1] "Eye Holes"


> print(system("java -version"))
java version "11.0.11" 2021-04-20 LTS
Java(TM) SE Runtime Environment 18.9 (build 11.0.11+9-LTS-194)
Java HotSpot(TM) 64-Bit Server VM 18.9 (build 11.0.11+9-LTS-194, mixed mode)
[1] 0

> print(getwd())
[1] "D:/_YES/workspace/HowOftenApp"

> config <- loadConfig("config-for-covid.json")

> schema = "covid_homeless_nachc"

> resultDatabaseSettings <- createDefaultResultDatabaseSettings(
+   schema = schema
+ )

> cli::cli_h1("Starting shiny server")

── Starting shiny server ─────────────────────────────────────────────────────────────────────────────────────────────────────────────

> server <- "MyServer"

> cli::cli_alert_info("Connecting to {server}")
ℹ Connecting to MyServer

> connectionDetails <- DatabaseConnector::createConnectionDetails(
+   dbms = "postgresql",
+   connectionString = "jdbc:postgresql://localhost:5432/O ..." ... [TRUNCATED] 

> cli::cli_h2("Loading MyServer")

── Loading MyServer ──


> createShinyApp (
+   config = config,
+   connectionDetails = connectionDetails,
+   resultDatabaseSettings = resultDatabaseSettings,
+   usePooledC .... [TRUNCATED] 
Connecting using PostgreSQL driver
Loading required package: shiny

Listening on http://127.0.0.1:7276
Connecting using PostgreSQL driver
Warning in max(apply(data, 1, function(x) max(nchar(x))), na.rm = T) :
  no non-missing arguments to max; returning -Inf
Warning in max(apply(data, 1, function(x) max(nchar(x))), na.rm = T) :
  no non-missing arguments to max; returning -Inf
Warning: Error in <Anonymous>: Graphics API version mismatch
  132: <Anonymous>
  130: startPNG
  129: drawPlot
  115: <reactive:plotObj>
   99: drawReactive
   86: renderFunc
   85: output$cohortMethod-cmResults-cmFullResults-attrition-attritionPlot
    4: runApp
    3: print.shiny.appobj
    1: source
Warning: Error in <Anonymous>: Graphics API version mismatch
  132: <Anonymous>
  130: startPNG
  129: drawPlot
  115: <reactive:plotObj>
   99: drawReactive
   86: renderFunc
   85: output$cohortMethod-cmResults-cmFullResults-kaplanMeier-kaplanMeierPlot
    4: runApp
    3: print.shiny.appobj
    1: source