Transform data frame based in a dictionary

Transform entire fieldbook according to data a dictionary

metamorphosis(fieldbook, dictionary, from, to, index, colnames)

Arguments

fieldbook	Data frame with the original information.
dictionary	Data frame with new names and categories. See details.
from	Column of the dictionary with the original names.
to	Column of the dictionary with the new names.
index	Column of the dictionary with the type and level of the variables.
colnames	Character vector with the name of the columns.

Value

List with two objects. 1. New data frame. 2. Dictionary.

Details

The function require at least three columns.

1. Original names (from).

2. New names (to).

3. Variable type (index).

Examples

library(googlesheets4)
library(dplyr)

if (gs4_has_token()) {

url <- paste0("https://docs.google.com/spreadsheets/d/"
, "1lslvNuebfI0YQw3KMz7clN8nIs3x8G9Da63E1em7J5o")
gs <- as_sheets_id(url)
# browseURL(url)

fb_old <- gs %>%
  range_read("fb_old") %>%
  select(ID:SNum) %>%
  filter(SS == "S1")

dic <- gs %>% range_read("var_old") %>%
  slice(1:20)

mtm <- metamorphosis(fieldbook = fb_old
                        , dictionary = dic
                        , from = "old_name"
                        , to = "Abbreviation"
                        , index = "Type"
                        , colnames = c("colname")
                     )

fb_new <- mtm$fieldbook

}