重命名列的代码正在从data.frame中擦除列

Question

编译我的代码以添加一列并重命名输入值时，最终结果少了一列，这意味着我的代码正在擦除要重命名的列。重命名之前的数据帧Teste有13列，使用功能Lotacao_Small之后，我得到了12列。我没有找到错误？

link <- url("https://raw.githack.com/fsbmat/salarioDocente/master/Teste/Dez2018SerT.csv")
Teste <- read.csv2(link, header = TRUE, encoding = "ASCII", skipNul = TRUE)
source("https://raw.githack.com/fsbmat/salarioDocente/master/Teste/Lotacao_Small.R")
Teste <- Lotacao_Small(Teste)
sessionInfo()


R version 3.5.2 (2018-12-20)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=Portuguese_Brazil.1252  LC_CTYPE=Portuguese_Brazil.1252   
[3] LC_MONETARY=Portuguese_Brazil.1252 LC_NUMERIC=C                      
[5] LC_TIME=Portuguese_Brazil.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] compiler_3.5.2 plyr_1.8.4     tools_3.5.2    yaml_2.2.0     Rcpp_1.0.0

Answer 1

您的函数尝试重命名数据帧中不存在的ORG_LOTACAO列中的因子水平。结果错误将分配给您的LOTACAO列，这使其消失。

尝试仅运行函数中嵌入的代码以查看其生成的错误。