From c377681e45a52c47f7fef72325233f09d05da4d3 Mon Sep 17 00:00:00 2001 From: schuemie Date: Mon, 26 Apr 2021 03:52:15 -0400 Subject: [PATCH] Updating LEGEND apps to new DatabaseConnector interface --- LegendBasicViewer/global.R | 5 +++-- LegendMedCentral/global.R | 4 ++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/LegendBasicViewer/global.R b/LegendBasicViewer/global.R index d9a19671..314c2443 100644 --- 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 index 6dfd2fb6..8ab48723 100644 --- 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"