kun raadata i utforkser

Rapporteket · Nov 15, 2023 · 2c95d30 · 2c95d30
1 parent 988cdf2
commit 2c95d30
Show file tree

Hide file tree

Showing 4 changed files with 327 additions and 146 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -18,11 +18,11 @@ app_server <- function(input, output, session) {
 
 
     # SAMLETABELLER MED UTLEDETE VARIABLER
-    `Pasient, prosedyre og kvalitetsindikatorer` = "basereg_pros_indik",
-    `Pasient, prosedyre og oppfølgingsstatus` = "pros_patient_followup_indik",
-    `eProm basis` = "pros_pat_followup0",
-    `eProm 1 år` = "pros_pat_followup1",
-    `eProm 5 år` = "pros_pat_followup5",
+    # `Pasient, prosedyre og kvalitetsindikatorer` = "basereg_pros_indik",
+    # `Pasient, prosedyre og oppfølgingsstatus` = "pros_patient_followup_indik",
+    # `eProm basis` = "pros_pat_followup0",
+    # `eProm 1 år` = "pros_pat_followup1",
+    # `eProm 5 år` = "pros_pat_followup5",
 
     # RÅDATA:
     `Basisskjema rådata` = "basereg",
@@ -32,7 +32,7 @@ app_server <- function(input, output, session) {
     `RAND-12: basis, 1 og 5 år. Rådata.` = "rand12",
     `eProm basis. Rådata` = "followupbasis",
     `eProm 1 år. Rådata` = "followup1",
-    `eProm 5 år. Rådata` = "followup5",
+    # `eProm 5 år. Rådata` = "followup5",
     `GKV (pasienterfaring) basis` = "gkv"
 
   )

diff --git a/R/getPivotDataSet.R b/R/getPivotDataSet.R
@@ -33,7 +33,9 @@ getPivotDataSet <- function(setId = "",
                   "pros",
                   "mce",
                   "rand12",
-                  "followup",
+                  "followupbasis",
+                  "followup1",
+                  "followup5",
                   "gkv",
                   "proms",
                   "basereg_pros_indik",
@@ -105,25 +107,25 @@ getPivotDataSet <- function(setId = "",
 
 
 
-    # if (setId == "followup") {
-    #   dat <- ablanor::getFollowupData(registryName = registryName,
-    #                                   singleRow = singleRow,
-    #                                   session = session,
-    #                                   reshId = reshId,
-    #                                   userRole = userRole)
-    # }
+    if (setId == "followup1") {
+      dat <- ablanor::getFollowupOneYrData(registryName = registryName,
+                                           singleRow = singleRow,
+                                           session = session,
+                                           reshId = reshId,
+                                           userRole = userRole)
+    }
 
 
 
-    if (setId == "pros_pat_followup1") {
-      dat <- ablanor::getBaseregProsFollowup1Data(registryName = registryName,
-                                                  singleRow = singleRow,
-                                                  session = session,
-                                                  reshId = reshId,
-                                                  userRole = userRole,
-                                                  fromDate = fromDate,
-                                                  toDate = toDate)
-    }
+    # if (setId == "pros_pat_followup1") {
+    #   dat <- ablanor::getBaseregProsFollowup1Data(registryName = registryName,
+    #                                               singleRow = singleRow,
+    #                                               session = session,
+    #                                               reshId = reshId,
+    #                                               userRole = userRole,
+    #                                               fromDate = fromDate,
+    #                                               toDate = toDate)
+    # }