NB language support to table functions

Author: cknotz

DESCRIPTION

@@ -8,7 +8,7 @@ Description: The package provides functions to easily create descriptive summary
 License: GPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.3
 Imports:
   stats,
   utils,

R/oppsum_grupp.R

@@ -19,6 +19,8 @@
 #' 10 unique categories).
 #' @param export Should the result be made export-ready (TRUE/FALSE)?
 #'
+#' @param norsk Results in Norwegian (NB)?
+#'
 #' @return A data.frame or, if export function is switched on (export=TRUE), a
 #' printed out table formatted for easy export to MS Word.
 #'
@@ -44,7 +46,7 @@
 #'
 #'
 #' @export
-oppsum_grupp <- function(dataset,variable,by.var,export=NULL){
+oppsum_grupp <- function(dataset,variable,by.var,export=NULL,norsk=NULL){
 
   # Helper function
   stop_quietly <- function() {
@@ -215,10 +217,15 @@ oppsum_grupp <- function(dataset,variable,by.var,export=NULL){
   rm(avg,sd,med,q25,q75,min,max,nas,obs)
 
   # Pretty output
-  colnames(bytabell) <- c(by.var,"Observations",
-                          "Average","Stand. Dev.","25th percentile",
-                          "Median","75th percentile","Minimum","Maximum",
-                          "Missing")
+  if(isTRUE(norsk)){
+    colnames(bytabell) <- c(by.var,"Observasjoner","Gjennomsnitt","25. persentil","Median",
+                            "75. persentil","Standardavvik","Minimum","Maksimum","Manglende")
+  }else{
+    colnames(bytabell) <- c(by.var,"Observations",
+                            "Average","Stand. Dev.","25th percentile",
+                            "Median","75th percentile","Minimum","Maximum",
+                            "Missing")
+  }
 
   if(export==T){
     return(utils::write.table(format(bytabell,digits=2,nsmall=2),

R/oppsumtabell.R

@@ -18,6 +18,8 @@
 #' be used.
 #' @param export Should the table be made export-ready (TRUE/FALSE)?
 #'
+#' @param norsk Results in Norwegian (NB)?
+#'
 #' @return A data.frame or, if export function is switched on (export=TRUE), a
 #' printed out table formatted for easy export to MS Word.
 #'
@@ -45,7 +47,7 @@
 #' @importFrom utils write.table
 #'
 #' @export
-oppsumtabell <- function(dataset,variables=NULL,variable=NULL,export=NULL) {
+oppsumtabell <- function(dataset,variables=NULL,variable=NULL,export=NULL,norsk=NULL) {
 
   # Helper function (from https://stackoverflow.com/questions/14469522/stop-an-r-program-without-error)
   stop_quietly <- function() {
@@ -73,8 +75,13 @@ oppsumtabell <- function(dataset,variables=NULL,variable=NULL,export=NULL) {
   }
 
   # Labels
-  stats <- c("Observations","Average","25th percentile","Median","75th percentile",
-             "Stand. Dev.","Minimum","Maximum","Missing")
+  if(isTRUE(norsk)){
+    stats <- c("Observasjoner","Gjennomsnitt","25. persentil","Median",
+               "75. persentil","Standardavvik","Minimum","Maksimum","Manglende")
+  }else{
+    stats <- c("Observations","Average","25th percentile","Median","75th percentile",
+               "Stand. Dev.","Minimum","Maximum","Missing")
+  }
 
   # Set default
   if(is.null(export)){