✨ introduces commaAnd()

NAMESPACE

@@ -6,6 +6,7 @@ export(applyString)
 export(assignClass2df)
 export(assignIds)
 export(categorize)
+export(commaAnd)
 export(dfTemplate)
 export(dfTemplateMatch)
 export(duplicateCol)

NEWS.md

@@ -1,5 +1,6 @@
 # inSilecoMisc (devel)
 
+* New function `commaAnd()` to collpase elements of a vector and add element separators.
 * Add code of conduct.
 * Add contributing.
 

R/commaAnd.R

@@ -0,0 +1,15 @@
+#' Paste element and add elememt separators. 
+#'
+#' @param x vector of to be coerced to character strings (see [paste()]). 
+#' @param comma element separator. 
+#' @param and last element separator (for 3 elements in `x` and more).
+#'
+#' @export 
+#' @examples
+#' commaAnd(c("Judith", "Peter", "Rebecca"))
+
+commaAnd <- function(x, comma = ", ", and = " and ") {
+  if (length(x) > 1) {
+    paste0(paste(x[-length(x)], collapse = comma), and, x[length(x)])
+  } else x
+}

README.md

@@ -34,6 +34,8 @@ On top of the [tour vignette](http://insileco.github.io/inSilecoMisc/articles/ov
 
 3. https://insileco.github.io/2020/04/21/insilecomisc-0.4.0-part-2/2/
 
+4. https://insileco.github.io/2020/11/24/continuous-integration-for-r-projects-from-travis-ci-to-github-actions-step-by-step/
+
 
 ## Code of Conduct
 

tests/testthat/test-commaAnd.R

@@ -0,0 +1,10 @@
+context("commaAnd")
+
+
+test_that("commaAnd works", {
+  expect_equal(commaAnd(c("J")), "J")
+  expect_equal(commaAnd(c("J", "P")), "J and P")
+  expect_equal(commaAnd(c("J", "P", "R")), "J, P and R")
+  expect_equal(commaAnd(c("J", "P", "R", "M")), "J, P, R and M")
+  expect_equal(commaAnd(c("J", "P", "R"), " and ", " and finally "), "J and P and finally R")
+})

vignettes/overview.Rmd

@@ -210,6 +210,14 @@ getDigits(c("a1", "032hdje2832"))
 ```
 
 
+## Collapse elements of a vector and add element separators
+
+
+```{r commaAnd}
+commaAnd(c("Judith", "Peter", "Rebecca", "Eric"))
+```
+
+
 
 
 # Vectors manipulations