diff --git a/DESCRIPTION b/DESCRIPTION index ac37f06..d204c73 100644 --- 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 diff --git a/R/appServer.R b/R/appServer.R index 3822bf5..0f6c4b0 100644 --- 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 index 56f7333..4d70bd4 100644 --- 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(