Bugfix falk

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ablanor
 Title: AblaNor- Rapporteket
-Version: 1.1.1
+Version: 1.2.0
 Authors@R: c(
   person(given = "Kristina",
            family = "Skaare",
@@ -20,7 +20,7 @@ License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 Suggests: 
     testthat,
     withr

NEWS.md

@@ -1,3 +1,9 @@
+# ablanor 1.2.0
+Små justeringer på Rapporteket etter overgang til FALK som innloggings-
+portal i prod. 
+En ny reshid. 
+Bruker egendefinerte (finere) sykehusnavn i Rapporteket og i rapporter. 
+
 # ablanor 1.1.1
 
 * Installer Rapbase fra github i stedet for cran. Rapbase ble fjernet fra Cran i slutten av juni 2023 fordi en test feilet. Testen er fikset nå, men Rapbase er ikke publisert på nytt enda. Enn så lenge må pakken installeres direkte fra github.

R/app_server.R

@@ -22,7 +22,7 @@ app_server <- function(input, output, session) {
   registryName <- "ablanor"
   mapOrgId <- ablanor::getNameReshId(registryName)
   reshId <- rapbase::getUserReshId(session)
-  hospitalName <- ablanor::getHospitalName(registryName, reshId)
+  hospitalName <- ablanor::getHospitalName(registryName, reshId, shortName = FALSE, newNames = TRUE)
   userFullName <- rapbase::getUserFullName(session)
   userRole <- rapbase::getUserRole(session)
   userOperator <- "Test Operatoresen"
@@ -314,7 +314,9 @@ app_server <- function(input, output, session) {
 
   # Values shared among subscriptions and dispatchment
   orgs <- ablanor::getNameReshId(registryName = registryName,
-                                 asNamedList = TRUE)
+                                 asNamedList = TRUE,
+                                 shortName = FALSE,
+                                 newNames = TRUE)
 
   # Abonnement
   subReports <- list(

R/getData.R

@@ -116,7 +116,7 @@ getDataDump <- function(registryName, tableName, fromDate, toDate,
 
 #' @rdname getData
 #' @export
-getNameReshId <- function(registryName, asNamedList = FALSE) {
+getNameReshId <- function(registryName, asNamedList = FALSE, shortNames = FALSE, newNames = FALSE) {
 
   query <- "
 SELECT
@@ -132,6 +132,15 @@ GROUP BY
 
   res <- rapbase::loadRegData(registryName, query)
 
+  if(newNames){
+    res %<>%
+      dplyr::mutate(centreid = id) %>%
+      ablanor::legg_til_sykehusnavn(., short = shortNames) %>%
+      dplyr::select(id, sykehusnavn) %>%
+      dplyr::rename("name" = "sykehusnavn") %>%
+      dplyr::filter(!is.na(name))
+  }
+
   if (asNamedList) {
     res <- stats::setNames(res$id, res$name)
     res <- as.list(res)
@@ -142,7 +151,7 @@ GROUP BY
 
 #' @rdname getData
 #' @export
-getHospitalName <- function(registryName, reshId, shortName = FALSE) {
+getHospitalName <- function(registryName, reshId, shortName = FALSE, newNames = FALSE) {
 
   if (shortName) {
     dbField <- "CENTRESHORTNAME"
@@ -158,7 +167,15 @@ FROM
 WHERE
   ID = ", reshId, ";")
 
-  name <- rapbase::loadRegData(registryName, query)[1, ]
+  if(newNames) {
+    name <- ablanor::legg_til_sykehusnavn(
+        df = data.frame(centreid = reshId),
+        short = shortName) %>%
+      dplyr::pull(sykehusnavn)
+    } else {
+      name <- rapbase::loadRegData(registryName, query)[1, ]
+    }
+
 
   if (is.na(name)) {
     warning(paste("Resh ID", reshId, "did not match any names!"))

R/legg_til_sykehusnavn.R

@@ -12,7 +12,7 @@
 #'
 #' @export
 #' @examples
-#' df <- data.frame(centreid = c(102966, 104284, 4214492, 700328, 700728))
+#' df <- data.frame(centreid = c(102966, 104284, 4214492, 700328, 4219765))
 #' ablanor::legg_til_sykehusnavn(df = df, short = TRUE)
 legg_til_sykehusnavn <- function(df, short = TRUE) {
 
@@ -25,7 +25,7 @@ legg_til_sykehusnavn <- function(df, short = TRUE) {
                                      centreid == 104284 ~ "St.Olavs",
                                      centreid == 4214492 ~ "AHus",
                                      centreid == 700328 ~ "OUS",
-                                     centreid == 700728 ~ "UNN",
+                                     centreid == 4219765 ~ "UNN",
                                      TRUE ~ NA_character_))
   } else {
     df %>% dplyr::mutate(
@@ -34,7 +34,7 @@ legg_til_sykehusnavn <- function(df, short = TRUE) {
         centreid == 104284 ~ "St.Olavs Hospital",
         centreid == 4214492 ~ "AHus Gardermoen",
         centreid == 700328 ~ "Oslo Universitetssykehus",
-        centreid == 700728 ~ "Universitetssykehuset Nord-Norge",
+        centreid == 4219765 ~ "Universitetssykehuset Nord-Norge",
         TRUE ~ NA_character_))
   }
 }

tests/testthat/test-legg_til_sykehusnavn.R

@@ -1,6 +1,6 @@
 test_that("legg til sykehusnavn works", {
 
-  df <- data.frame(centreid = c(102966, 104284, 4214492, 700328, 700728,
+  df <- data.frame(centreid = c(102966, 104284, 4214492, 700328, 4219765,
                                 NA, 123456))