这应该是一个非常简单的问题 .
我想在ui.R一侧有一个由两个变量组成的SelectInput选项,例如数字和文本,如下面的data.frame所示 .
df1<-as.data.frame(cbind(c("111","222","333","444","555"),c("AAA","BBB","CCC","DDD","EEE")))
names(df1)<-c("Number","Text")
所以可能的选择应该是 111AAA
, 222BBB
, 333CCC
, 444DDD
, 555EEE
.
在服务器端,假设我有 df_111
, df_222
, df_333
, df_444
和 df_555
,我想根据SelectInput ui.R端选择的值绘制这些数据
一旦选择 222BBB
,我想在server.R端绘制 df_222
.
我试图连接 df1
列以创建像这样的SelectInput选项:
selectInput("ID","Select a number+text",choices = parse(df1$Number,df1$Text, sep=""))
它工作正常 . 但是我无法使用所选输入的第一部分(数字部分 222
,例如)来绘制server.R端的 df_222
.
在server.R端我尝试使用以下方法调用数据:
data=eval(parse(text=paste0("df_",input$(ID$number))))
虽然对我来说很直观,但对我来说听起来非常错误,因为我只对所选输入的第一部分(数字)感兴趣 . 也许我应该使用 reactive
功能,我不知道......
如果您需要更多详细信息,请随时提出 . 我希望很清楚 .
先感谢您!