RegData lastes

Rapporteket · Nov 15, 2024 · 5122fd3 · 5122fd3
1 parent 975c0ff
commit 5122fd3
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: norgast
 Type: Package
 Title: Resultatrapporter for NORGAST
-Version: 3.0.7
+Version: 3.0.8
 Date: 2015-12-17
 Author: Kevin Thon
 Maintainer: Kevin Thon <kevin.otto.thon@helse-nord.no>

diff --git a/R/appServer.R b/R/appServer.R
@@ -59,12 +59,20 @@ appServer <- function(input, output, session) {
     Sys.getlocale()
   })
 
-
-  # RegData <-  norgast::NorgastHentRegData()
   skjemaoversikt <- norgast::NorgastHentskjemaoversikt()
+  skjemaoversikt$HovedDato <- as.Date(skjemaoversikt$HovedDato)
   output$skjemaoversikt <- shiny::renderTable({
     head(skjemaoversikt)
   })
+
+  RegData <-  norgast::NorgastHentRegData()
+  RegData <- norgast::NorgastPreprosess(RegData, behold_kladd = TRUE)
+  output$regdata <- shiny::renderTable(
+    head(RegData[,1:10])
+  )
+
+  # RegData <-  norgast::NorgastHentRegData()
+  # skjemaoversikt <- norgast::NorgastHentskjemaoversikt()
   # skjemaoversikt$HovedDato <- as.Date(skjemaoversikt$HovedDato)
   # RegData <- norgast::NorgastPreprosess(RegData, behold_kladd = TRUE)
   # skjemaoversikt <- merge(skjemaoversikt, RegData[,c("ForlopsID", "Op_gr", "Hovedoperasjon")], by = "ForlopsID", all.x = T)

diff --git a/R/appUi.R b/R/appUi.R
@@ -47,7 +47,8 @@ appUi <- function() {
       shiny::h4("Database og tabeller:"),
       shiny::textOutput("database"),
       shiny::tableOutput("tabeller"),
-      shiny::tableOutput("skjemaoversikt")
+      shiny::tableOutput("skjemaoversikt"),
+      shiny::tableOutput("regdata")
     )
 
     # shiny::tabPanel(