: → 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都成功，但是要賦值時才出問題。