✨ rename

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: inSilecoMisc
 Title: inSileco Miscellaneous Functions
-Date: 2020-11-22
+Date: 2021-05-21
 Version: 0.6.0.9000
 Authors@R: c(
   person("Kevin", "Cazelles", email = "kevin.cazelles@gmail.com", comment = c(ORCID = "0000-0001-6619-9874"), role = c("aut", "cre")),

NAMESPACE

@@ -34,6 +34,7 @@ export(msgWarning)
 export(multiMatch)
 export(packagesUsed)
 export(readYamlHeader)
+export(rename)
 export(scaleWithin)
 export(seqCol)
 export(seqRg)

NEWS.md

@@ -1,8 +1,9 @@
 # inSilecoMisc (devel)
 
-* New function `commaAnd()` to collpase elements of a vector and add element separators.
+* New function `rename()` to rename data frames, list, etc.
+* New function `commaAnd()` to collapse elements of a vector and add element separators.
 * Add code of conduct.
-* Add contributing.
+* Add contributing guidelines.
 
 
 # inSilecoMisc 0.6.0
@@ -18,7 +19,7 @@
 data frame according to the template (see #20).
 * add `stopwatch()` and `timer()`.
 * add `seqRg()` that generates a regular sequence based on the range of a vector.
-* add `seqRow()` and ``seqCol()` that generate a regular sequences based on the number of rows and columns (respectively) of a data frame (or a matrix).
+* add `seqRow()` and `seqCol()` that generate a regular sequences based on the number of rows and columns (respectively) of a data frame (or a matrix).
 
 
 # inSilecoMisc 0.4.0

R/rename.R

@@ -0,0 +1,27 @@
+#' Rename object
+#'
+#' This function finds old names and replace them with new ones.
+#'
+#' @param x an object from which names can be extracted see [names()].
+#' @param old a vector of character strings of old names.
+#' @param new a vector of character strings of new names.
+#' 
+#' @export
+#' @examples
+#' tb <- data.frame(var1 = 2, var2 = "B")
+#' rename(tb, "var1", "uptake")
+#' rename(tb, c("var1", "var2"), c("uptake", "type"))
+
+rename <- function(x, old, new) {
+  stopifnot(length(new) == length(old))
+  out <- x
+  for (i in seq_along(old)) {
+    if (sum(names(out) == old[i])) {
+      names(out)[names(out) == old[i]] <- new[i]
+    } else {
+      msgWarning(old[i], "not a valid name.")
+    }
+  }
+  out
+}
+

tests/testthat/test-rename.R

@@ -0,0 +1,13 @@
+context("renaming object")
+
+tb <- data.frame(var1 = 2, var2 = "B")
+res1 <- rename(tb, c("var1", "var2"), c("uptake", "type"))
+res2 <- rename(tb, c("var"), c("cool"))
+
+
+test_that("renamed as exected", {
+  expect_equal(names(res1), c("uptake", "type"))
+  expect_equal(names(res2), names(tb))
+  expect_error(rename(tb, "var1", c("up", "take")))
+})
+