first rename_col first function Mook

NAMESPACE

@@ -6,4 +6,5 @@ export(get_world_basemap)
 export(leading_zero)
 export(len)
 export(multi_merge)
+export(rename_col)
 export(to_binomial_name)

R/rename_col.R

@@ -0,0 +1,19 @@
+#' Rename any columns of a dataframe (from 1 to as much columns as you want)
+#'
+#' @param df a dataframe.
+#' @param old.col.names a vector of columns names to rename
+#' @param new.col.names a vector of columns new names
+#'
+#' @return a dataframe.
+#' 
+#' @export
+#'
+#' @examples
+#' df <- cbind.data.frame(a=1:10,b=1:10,c=1:10,d=1:10)
+#' df <- rename_col(df,old.col.names=c("a","d"),new.col.names=c("aa","dd"))
+#' 
+
+rename_col <- function(df, old.col.names, new.col.names){
+  for (i in 1:length(old.col.names)) names(df)[names(df) == old.col.names[i]] <- new.col.names[i]
+  df
+}

README.Rmd

@@ -61,6 +61,8 @@ library("rutils")
 
 - [`address_to_coords()`](https://frbcesab.github.io/rutils/reference/address_to_coords.html): gets geographic coordinates of any location in the World
 
+- [`rename_col()`](https://frbcesab.github.io/rutils/reference/rename_col.html): Rename any columns of a dataframe (from 1 to as much columns as you want)
+
 
 ## Contribution
 

README.md

@@ -58,6 +58,10 @@ library("rutils")
 - [`address_to_coords()`](https://frbcesab.github.io/rutils/reference/address_to_coords.html):
   gets geographic coordinates of any location in the World
 
+- [`rename_col()`](https://frbcesab.github.io/rutils/reference/rename_col.html):
+  Rename any columns of a dataframe (from 1 to as much columns as you
+  want)
+
 ## Contribution
 
 Visit the