nom de dataframe paramétré

Bonjour,
je souhaiterais renommer des variables d'une dataframe dont le nom est paramétré (par l'année).
Sans paramètre, ça donnerait :

Code:

---

1 2 3 4 5 6

library(dplyr) library(glue) New <- rename.vars(table2020, from =c('APE','CJ','SIREN'), to=c('APE_new','CJ_new','siren'))

---

et cela fonctionne. Pour paramétrer, j'utilise le package glue (qui fonctionne dans d'autres contextes mais là, non !)

Code:

---

1 2 3 4 5

annee <- 2020 New <- rename.vars(glue("table{annee})", from =c('APE','CJ','SIREN'), to=c('APE_new','CJ_new','siren'))

---

En remplaçant "glue" par "eval(parse(text=sprintf("table%4d",annee)))", ça fonctionne, mais c'est un peu lourd !! :(

Bonjour,

Code:

---

1 2 3 4

> table2020 <- data.frame(APE = c(1,1,1), + CJ = c(1,1,1), + SIREN = c(1,1,1)) >

---

• Plus lisible que sprintf("table%4d",annee) je propose paste0("table",annee) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

> annee <- 2020 > gdata::rename.vars(eval(parse(text=paste0("table",annee))), + from =c('APE','CJ','SIREN'), + to=c('APE_new','CJ_new','siren'))   Changing in eval(parse(text = paste0("table", annee))) From: APE CJ SIREN To: APE_new CJ_new siren   APE_new CJ_new siren 1 1 1 1 2 1 1 1 3 1 1 1

---

• Pour déboguer votre code avec le package glue :

Code:

---

1 2 3 4 5 6 7 8

> annee <- 2020 > glue::glue("table{annee}") table2020 > get(glue::glue("table{annee}")) APE CJ SIREN 1 1 1 1 2 1 1 1 3 1 1 1

---

ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

> annee <- 2020 > gdata::rename.vars(get(glue::glue("table{annee}")), + from =c('APE','CJ','SIREN'), + to=c('APE_new','CJ_new','siren'))   Changing in get(glue::glue("table{annee}")) From: APE CJ SIREN To: APE_new CJ_new siren   APE_new CJ_new siren 1 1 1 1 2 1 1 1 3 1 1 1

---

Cordialement,

Merci ;)