在函数中使用参数来命名函数内的对象

Question

是否可以使用传递给函数的参数在函数中创建对象名？例如，在下面的代码中，我尝试检查use_x的值并创建一个名为＆＃34; x_list＆＃34;的数据表：

use_x = "Y"
    myfun <- function(type_name){
   if (eval(parse(text= paste("use_",type_name, sep = "") )) == "Y"){
    type_name_list <- data.table(item = 1, name = "some name here", condition = "Y")}
}

myfun("x")