Add argsCsv(), moved from kwb.sema

Author: hsonne

NAMESPACE

@@ -18,6 +18,7 @@ export(allAreIdentical)
 export(almostEqual)
 export(appendSuffix)
 export(arglist)
+export(argsCsv)
 export(asColumnList)
 export(asNoFactorDataFrame)
 export(asRowList)

NEWS.md

@@ -1,5 +1,7 @@
 # Changes since last release
 
+* add argsCsv(), moved from kwb.sema
+
 # [kwb.utils 0.10.0](https://github.com/KWB-R/kwb.utils/releases/tag/v0.10.0) <small>2022-01-19</small>
 
 * add findChanges(), to be used by kwb.utils::hsEventsOnChange()

R/csv.R

@@ -1,3 +1,19 @@
+# argsCsv ----------------------------------------------------------------------
+
+#' Language Abbreviation to "sep" and "dec" argument
+#' 
+#' @param lng "de" for German, "en" for Englisch
+#' @return list with elements \code{sep} (column separator), \code{dec} 
+#'   (character used for decimal points)
+#' @export
+argsCsv <- function(lng = "de")
+{
+  list(
+    sep = selectElements(list(de = ";", en = ","), lng),
+    dec = selectElements(list(de = ",", en = "."), lng)
+  )
+}
+
 # convertCsvFile ---------------------------------------------------------------
 
 #' Modify the format of a CSV file