feat: added `paste2` function with `collapse_last` argument

DESCRIPTION

 Package: DIZtools
 Title: Lightweight Utilities for 'DIZ' R Package Development
-Version: 0.0.5.9003
-Date: 2022-08-19
+Version: 0.0.5.9004
+Date: 2022-08-29
 Authors@R: c(
     person("Jonathan M.", "Mang", , "jonathan.mang@uk-erlangen.de", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-0518-4710")),

NAMESPACE

@@ -20,6 +20,7 @@ export(log_get_default_options)
 export(log_remove_options)
 export(log_set_defaults)
 export(number_to_position)
+export(paste2)
 export(rep2)
 export(setdiff_all)
 export(setenv2)

NEWS.md

 # DIZtools NEWS
 
-## Unreleased (2022-08-19)
+## Unreleased (2022-08-29)
 
 #### New Features
 
@@ -8,13 +8,16 @@
 #### Refactorings
 
 * slightly changed print format output of `get_current_timestamp()`
+#### Docs
+
+* updated news
 #### Others
 
 * updated gha
 * updated gha
 * new dev version
 
-Full set of changes: [`v0.0.5...50d44ba`](https://gitlab.miracum.org/miracum/misc/diztools/compare/v0.0.5...50d44ba)
+Full set of changes: [`v0.0.5...bd90fea`](https://gitlab.miracum.org/miracum/misc/diztools/compare/v0.0.5...bd90fea)
 
 ## v0.0.5 (2022-05-18)
 

R/paste2.R

+# DIZtools - Utilities for 'DIZ' R Package Development
+# Copyright (C) 2020-2022 Universitätsklinikum Erlangen, Germany
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#' @title Normal `paste` function with additional `collapse_last` argument.
+#' @description The base `paste` function but with the add on to also supply a
+#'   `collapse_last` value to change the `collapse` argument at the last
+#'   position. To get from "cat", "mouse", "dog" to a string
+#'   "cat, mouse and dog", one simply needs to call
+#'   `paste(c("cat","mouse","dog"), collapse = ", ", collapse_last = " and ")`
+#'
+#' @param collapse_last (string, optional) The string to use for the last
+#'   instance while collapsing. All other elements will be pasted using
+#'   the normal `collapse` argument.
+#' @inheritParams base::paste
+#' @return String. See`?paste` for details.
+#' @examples{
+#'   paste2(c("cat", "mouse", "dog"),
+#'          collapse = ", ",
+#'          collapse_last = " and ")
+#'   #> [1] "cat, mouse and dog"
+#' }
+#' @export
+#'
+paste2 <- function(...,
+                   collapse = NULL,
+                   collapse_last = NULL) {
+  if (is.character(collapse_last) && is.character(collapse)) {
+    return(sub(
+      pattern = paste0("(.*)", collapse),
+      replacement = paste0("\\1", collapse_last),
+      x =  paste(..., collapse = collapse)
+    ))
+  } else {
+    return(paste(..., collapse = collapse))
+  }
+}

data-raw/devstuffs.R

@@ -32,7 +32,7 @@ my_desc$set_authors(c(
 my_desc$del("Maintainer")
 my_desc$del("LazyData")
 # Set the version
-my_desc$set_version("0.0.5.9003")
+my_desc$set_version("0.0.5.9004")
 # The title of your package
 my_desc$set(Title = "Lightweight Utilities for 'DIZ' R Package Development")
 # The description of your package

man/paste2.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/paste2.R
+\name{paste2}
+\alias{paste2}
+\title{Normal `paste` function with additional `collapse_last` argument.}
+\usage{
+paste2(..., collapse = NULL, collapse_last = NULL)
+}
+\arguments{
+\item{...}{one or more \R objects, to be converted to character vectors.}
+
+\item{collapse}{an optional character string to separate the results.  Not
+    \code{\link[base]{NA_character_}}.}
+
+\item{collapse_last}{(string, optional) The string to use for the last
+instance while collapsing. All other elements will be pasted using
+the normal `collapse` argument.}
+}
+\value{
+String. See`?paste` for details.
+}
+\description{
+The base `paste` function but with the add on to also supply a
+  `collapse_last` value to change the `collapse` argument at the last
+  position. To get from "cat", "mouse", "dog" to a string
+  "cat, mouse and dog", one simply needs to call
+  `paste(c("cat","mouse","dog"), collapse = ", ", collapse_last = " and ")`
+}
+\examples{
+{
+  paste2(c("cat", "mouse", "dog"),
+         collapse = ", ",
+         collapse_last = " and ")
+  #> [1] "cat, mouse and dog"
+}
+}