如何為data.table列表中的函數分配多個列？

Question

我有一個data.table列表，我想將某些列轉換為數值並執行rowSums 。 我試圖弄清楚如何將所有列轉換為數值。

這就是我嘗試過的。

# Obtain data
tbl<-get_data(sqlquery = tqry, dbase=db1, server=serv)

# Names of the columns that need to be converted to numeric
score<-names(tbl)[grep('score',names(tbl),ignore.case = T)]
tbl[,class(AcceptingNewPatientsScore)]
[1] "character"

### Wrong - Having problem here
tbl[,eval(score):=as.numeric(get(score))] 

tbl[,class(AcceptingNewPatientsScore)]
[1] "numeric" # It converted but jumbled scores.

tbl[,tscore:=rowSums(.SD,na.rm = FALSE),.SDcols=score]

Answer 1

感謝@Frank的建議。

tbl[,(score):=lapply(.SD, as.numeric),.SDcols=score]