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")
registrationFormNames <- c("Operasjon","Legeskjema","Registrering","1A Anamnese","Basisregistrering","Start","nada")
peculiarities <- c(rep(FALSE, 6), TRUE)
years <- c(2014, 2015, 2016, 2017)

# get data
df <- rapgen::RegDelayReport(years, registryKeyNames, registrationFormNames, peculiarities)

# make a subset from df of only median and N
df <- df[c("regName", "Q22014", "N2014", "Q22015", "N2015", "Q22016", "N2016",
           "Q22017", "N2017")]

# 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"

# rename column name
names(df)[names(df)=="regName"] <- "Register"

# make column years subscripts and replace 'Q2' by a median symbol
medianSymbol <- "<i>m</i>"
names(df) <- sub("Q2", medianSymbol, names(df))
for (i in years) {
  txt <- as.character(i)
  names(df) <- sub(txt, paste0("<sub>", txt, "</sub>"), names(df))
}


# knit neatly
knitr::kable(df, format = "markdown", row.names = FALSE, digits = 0)

Tabell: Median dager fra hendelse til registrering (m) og antall observasjoner (N) per r as.character(format(Sys.Date(), format="%e. %B %Y"))

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