viewDatabaseResultPlp | R Documentation |
open a local shiny app for viewing the result of a PLP analyses from a database
viewDatabaseResultPlp(
mySchema,
myServer,
myUser,
myPassword,
myDbms,
myPort = NULL,
myTableAppend
)
mySchema |
Database result schema containing the result tables |
myServer |
server with the result database |
myUser |
Username for the connection to the result database |
myPassword |
Password for the connection to the result database |
myDbms |
database management system for the result database |
myPort |
Port for the connection to the result database |
myTableAppend |
A string appended to the results tables (optional) |
Opens a shiny app for viewing the results of the models from a database
Opens a shiny app for interactively viewing the results
connectionDetails <- Eunomia::getEunomiaConnectionDetails()
Eunomia::createCohorts(connectionDetails)
databaseDetails <- createDatabaseDetails(connectionDetails = connectionDetails,
cdmDatabaseSchema = "main",
cdmDatabaseName = "Eunomia",
cdmDatabaseId = "1",
targetId = 1,
outcomeIds = 3)
modelDesign <- createModelDesign(targetId = 1,
outcomeId = 3,
modelSettings = setLassoLogisticRegression())
saveLoc <- file.path(tempdir(), "viewDatabaseResultPlp", "developement")
runMultiplePlp(databaseDetails = databaseDetails, modelDesignList = list(modelDesign),
saveDirectory = saveLoc)
# view result files
dir(saveLoc, recursive = TRUE)
viewDatabaseResultPlp(myDbms = "sqlite",
mySchema = "main",
myServer = file.path(saveLoc, "sqlite", "databaseFile.sqlite"),
myUser = NULL,
myPassword = NULL,
myTableAppend = "")
# clean up, shiny app can't be opened after the following has been run
unlink(saveLoc, recursive = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.