这应该是一个非常简单的问题 .

我想在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")

df1 image

所以可能的选择应该是 111AAA222BBB333CCC444DDD555EEE .

在服务器端,假设我有 df_111df_222df_333df_444df_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 功能,我不知道......

如果您需要更多详细信息,请随时提出 . 我希望很清楚 .

先感谢您!