Ошибка: цель назначения расширяется до неязыкового объекта

Question

Я пытаюсь динамически очистить некоторые имена столбцов для большого количества таблиц, и я получаю вышеуказанную ошибку.

У меня есть ощущение, что я должен использовать quo, но я не знаю, как это сделать.

Есть идеи?

apply_alias применяет набор бизнес-правил для очистки имен.

apply_alias <-  function(l){
  which(l=="Geography")
  l[which(l=="Geography")]  <- "GEO"

  toupper(l)
}

cleanup_column_names_tbl применяет alias_function к списку таблиц

cleanup_column_names_tbl <- function(PID){
  for(p in PID){
    names(get(paste0("tbl_",p))) <- apply_alias(names(get(paste0("tbl_",p))))
  }
}

cleanup_column_names_tbl("14100287")

Когда я пытаюсь запустить его, я получаю следующее сообщение об ошибке:

> cleanup_column_names_tbl("14100287")
Error in names(get(paste0("tbl_", p))) <- apply_alias(names(get(paste0("tbl_",  : 
  target of assignment expands to non-language object

Пример данных:

> dput(tbl_14100287[1,])
structure(list(V1 = 0L, REF_DATE = "1976-01", GEO = "Canada", 
    DGUID = "2016A000011124", `Labour force characteristics` = "Population", 
    Sex = "Both sexes", `Age group` = "15 years and over", Statistics = "Estimate", 
    `Data type` = "Seasonally adjusted", UOM = "Persons", UOM_ID = 249L, 
    SCALAR_FACTOR = "thousands", SCALAR_ID = 3L, VECTOR = "v2062809", 
    COORDINATE = "1.1.1.1.1.1", VALUE = 16852.4, STATUS = "", 
    SYMBOL = NA, TERMINATED = NA, DECIMALS = 1L), class = c("data.table", 
"data.frame"), row.names = c(NA, -1L), .internal.selfref = <pointer: 0x000002123cf21ef0>)

Answer 1

Мое решение:

Создание и выражение и оценка его. Это коротко, но почему-то не похоже, что это правильный способ делать вещи, так как я отрываюсь от функциональной парадигмы R.

cleanup_column_names_tbl <- function(PID){
  for(p in PID){
    expr1 <- paste0("names(", paste0("tbl_",p), ") <- apply_alias(names(", paste0("tbl_",p),"))")
    eval(rlang::parse_expr(expr1))
    }
}

Edit:

Немного другой способ:

• избегает использования строк
• немного более гибкий, поскольку позволяет использовать строки и символы

library(rlang)
test_df <- data.frame(a=1:10,b=1:10)
test_df2 <- data.frame(a=1:10,b=1:10)


fix_names <-  function(df){

  x <- ensym(df)
  expr1 <- expr(names(!!x) <- toupper(names(!!x)))
  eval(expr1, envir = parent.env(environment()))
  # expr1
}

fix_names(test_df)
fix_names("test_df2")

names(test_df)
#> [1] "A" "B"
names(test_df2)
#> [1] "A" "B"

Answer 2

Вы не можете присвоить значение get, так как нет функции get<-. Правильный способ сделать это будет что-то вроде следующего.

apply_alias <-  function(l){
  l[which(l == "Geography")]  <- "GEO"
  toupper(l)
}

cleanup_column_names_tbl <- function(PID, envir = .GlobalEnv){
  pid_full <- paste0("tbl_", PID)
  res <- lapply(pid_full, function(p){
    nms <- apply_alias(names(get(p)))
    DF <- get(p)
    names(DF) <- nms
    DF
  })
  names(res) <- pid_full
  list2env(res, envir = envir)
  invisible(NULL)
}


cleanup_column_names_tbl("14100287")

names(tbl_14100287)
# [1] "V1"                           "REF_DATE"                    
# [3] "GEO"                          "DGUID"                       
# [5] "LABOUR FORCE CHARACTERISTICS" "SEX"                         
# [7] "AGE GROUP"                    "STATISTICS"                  
# [9] "DATA TYPE"                    "UOM"                         
#[11] "UOM_ID"                       "SCALAR_FACTOR"               
#[13] "SCALAR_ID"                    "VECTOR"                      
#[15] "COORDINATE"                   "VALUE"                       
#[17] "STATUS"                       "SYMBOL"                      
#[19] "TERMINATED"                   "DECIMALS"