: → locka: 请提供可重现错误的程式码~ 08/21 11:47
: → locka: 是说我查get的说明,他是从命名空间(name space)中搜寻是否 08/21 11:53
: → locka: 有符合的物件,会不会是你选取档案的程式码并没有在命名空 08/21 11:53
: → locka: 间中?另外get(x)的x要用字串形式,不知道你为什么可以不用 08/21 11:53
: → locka: ?撇除这点,不知道是不是跟你赋值的动作有关?(总之没提供 08/21 11:53
: → locka: 程式码只能乱猜…坐等其他大大回复 哈哈哈) 08/21 11:53
以下是全部的log,先清除所有变量空间。
档名和表格都有成功存到变量空间。档名变量也是字串没问题。
> rm(list=ls(all.names = TRUE ))
> raw_name <- choose.files(caption = "Select a raw excel file", multi =
FALSE, filters = matrix(c("excel files", "*.xlsx", "CSV files", "*.csv"),
ncol = 2, byrow = TRUE))
> tableName <- strsplit(basename(raw_name), ".", fixed = TRUE)[[1]][1]
> library(magrittr)
> tableName %<>% paste("table", sep = "_");
> library(openxlsx)
> assign(tableName, read.xlsx(raw_name));
> get(tableName)$event_height[is.na(get(tableName)$event_height)] = "noData"
Error in get(tableName)$event_height[is.na(get(tableName)$event_height)] =
"noData" :
could not find function "get<-"
> is.na(get(tableName)$event_height)
[1] FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE TRUE TRUE TRUE FALSE
TRUE TRUE TRUE TRUE TRUE
[18] TRUE TRUE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE
TRUE TRUE TRUE TRUE TRUE
[35] TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE
TRUE TRUE TRUE FALSE TRUE
[52] TRUE TRUE FALSE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE FALSE
TRUE TRUE
get(tableName)是可以正常运作的。
> tableName
[1] "2020rib_selection version2_table"
我get的tableName确实存在,所以我故意单独呼叫这字串,贴回程式码取代get的
段落,就可以执行了。
> `2020rib_selection
version2_table`$event_height[is.na(get(tableName)$event_height)] = "noData"
> is.na(get(tableName)$event_height)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
FALSE FALSE FALSE FALSE FALSE
[18] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
FALSE FALSE FALSE FALSE FALSE
[35] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
FALSE FALSE FALSE FALSE FALSE
[52] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
FALSE FALSE
取代成功,没有NA,都变成"noData"的字串。
其实我在意那句could not find function "get<-",但上网查找不到,
而且逻辑上也不懂为什么其他地方get都成功,但是要赋值时才出问题。