In Rapporteket/rapgen: Multi-registry reports and results at Rapporteket

# For some reason Shiny Server does not get the server locale settings right.
# To display dates correct, enforce locale here:
Sys.setlocale("LC_TIME", "nb_NO.UTF-8")

# define vars
registryKeyNames <- c("nger", "Nakke", "norgast", "nra", "Muskel", "noricStagingNasjonal", "nir")
peculiarities <- c(rep(FALSE, 6), rep(TRUE, 1))
startDate <- "2014-01-01"
endDate <- "2017-09-15"


# get data
df <- data.frame()
for (i in 1:length(registryKeyNames)) {
  dfr <- rapgen::RegPulse(registryName = registryKeyNames[i],
                          startDate = startDate,
                          endDate = endDate,
                          peculiarity = peculiarities[i])
  df <- rbind(df, dfr)
}

# sort by performance
df <- df[order(df$sumPulse, decreasing = TRUE), ]

# remove sumPulse
df$sumPulse <- NULL

# indicators
bad <- ":rage:"
mediocre <- ":flushed:"
good <- ":smiley:"

# indicator thresholds (t) for each period as vector [bad mediocre good]
td <- c(1/7, 4/7)
tw <- c(25/52, 40/52)
tm <- c(9/12, 11/12)
ty <- 1

# add indicators to table
## day
df <- dplyr::mutate(df, day = ifelse(day < td[1],
                                     paste(round(day, digits = 2), bad),
                    ifelse(day >= td[1] & day < td[2],
                           paste(round(day, digits = 2), mediocre),
                    paste(round(day, digits = 2), good))))
## week
df <- dplyr::mutate(df, week = ifelse(week < tw[1],
                                      paste(round(week, digits = 2), bad),
                    ifelse(week >= tw[1] & week < tw[2],
                           paste(round(week, digits = 2), mediocre),
                    paste(round(week, digits = 2), good))))
## month
df <- dplyr::mutate(df, month = ifelse(month < tm[1],
                                       paste(round(month, digits = 2), bad),
                    ifelse(month >= tm[1] & month < tm[2],
                           paste(round(month, digits = 2), mediocre),
                    paste(round(month, digits = 2), good))))
## year
df <- dplyr::mutate(df, year = ifelse(year < ty,
                                      paste(round(year, digits = 2), bad),
                    paste(round(year, digits = 2), good)))




# rename registries
df["regName"][df["regName"]=="nger"] <- "NGER"
df["regName"][df["regName"]=="Nakke"] <- "NKR Nakke"
df["regName"][df["regName"]=="norgast"] <- "NoRGast"
df["regName"][df["regName"]=="nra"] <- "NRA"
df["regName"][df["regName"]=="noricStagingNasjonal"] <- "NORIC"
df["regName"][df["regName"]=="nir"] <- "NIR"
df["regName"][df["regName"]=="nordicscir"] <- "NordicSCIR"

# rename column names
names(df)[names(df)=="regName"] <- "Register"
names(df)[names(df)=="year"] <- "År"
names(df)[names(df)=="yearN"] <- "N<sub>År</sub>"
names(df)[names(df)=="month"] <- "Måned"
names(df)[names(df)=="monthN"] <- "N<sub>Måned</sub>"
names(df)[names(df)=="week"] <- "Uke"
names(df)[names(df)=="weekN"] <- "N<sub>Uke</sub>"
names(df)[names(df)=="day"] <- "Dag"
names(df)[names(df)=="dayN"] <- "N<sub>Dag</sub>"


# knit neatly
knitr::kable(df, format = "markdown", row.names = FALSE, digits = 2,
             align = c("l", rep("r", 8)))

Tabell: Andel og antall av årene, månedene, ukene og dagene med minimum ett opprettet skjema målt i perioden fra og med r as.character(format(as.Date(startDate), format="%e. %B %Y")) til og med r as.character(format(as.Date(endDate), format="%e. %B %Y")).

Rapporteket/rapgen documentation built on May 9, 2019, 9:18 a.m.