Updating LEGEND apps to new DatabaseConnector interface

thehyve · Apr 26, 2021 · c377681 · c377681
1 parent 088926b
commit c377681
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/LegendBasicViewer/global.R b/LegendBasicViewer/global.R
@@ -20,11 +20,12 @@ connectionDetails <- createConnectionDetails(dbms = "postgresql",
                                                             sep = "/"),
                                              port = Sys.getenv("shinydbPort"),
                                              user = Sys.getenv("shinydbUser"),
-                                             password = Sys.getenv("shinydbPw"),
-                                             schema = Sys.getenv("shinydbSchema"))
+                                             password = Sys.getenv("shinydbPw"))
 
 connection <- connect(connectionDetails)
 
+renderTranslateExecuteSql(connection, "USE @schema;", schema = Sys.getenv("shinydbSchema"))
+
 indications <- getIndications(connection)
 exposures <- getExposures(connection)
 exposures$exposureGroup[exposures$exposureGroup == "Drug" | exposures$exposureGroup == "Procedure"] <- "Drug or procedure"

diff --git a/LegendMedCentral/global.R b/LegendMedCentral/global.R
@@ -10,9 +10,9 @@ connectionDetails <- createConnectionDetails(dbms = "postgresql",
                                                             sep = "/"),
                                              port = Sys.getenv("shinydbPort"),
                                              user = Sys.getenv("shinydbUser"),
-                                             password = Sys.getenv("shinydbPw"),
-                                             schema = Sys.getenv("shinydbSchema"))
+                                             password = Sys.getenv("shinydbPw"))
 connection <- connect(connectionDetails)
+renderTranslateExecuteSql(connection, "USE @schema;", schema = Sys.getenv("shinydbSchema"))
 indications <- getIndications(connection)
 exposures <- getExposures(connection)
 exposures$exposureGroup[exposures$exposureGroup == "Drug" | exposures$exposureGroup == "Procedure"] <- "Drug or procedure"