Question

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

我想在 ui.R 一侧有一个SelectInput选项，它由两个变量组成，例如数字和文本，如下面的data.frame所示。

newline = "anoth-48576"

with open('file.txt', 'r') as fin:
    data = fin.read().splitlines(True)

newdata = data[1:]

if not '\n' in newdata[-1]:
    newdata[-1] = newdata[-1]+'\n'

newdata.append(newline+'\n')

with open('file.txt', 'w') as fout:
    fout.writelines(newdata)

df1 image

所以可能的选择应该是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和{{ 1}}我希望根据SelectInput ui.R 方面选择的值绘制这些数据

例如，选择df_444之后，我想在 server.R 一侧绘制df_555。

我试图连接222BBB列以创建类似的SelectInput选项：

df_222

工作得很好。但我无法使用所选输入的第一部分（数字部分df1，例如）来绘制 server.R 侧的selectInput("ID","Select a number+text",choices = parse(df1$Number,df1$Text, sep=""))。

在 server.R 一侧，我尝试使用以下方法调用数据：

df_222部分听起来对我来说非常错误，尽管对我来说很直观，因为我只对所选输入的第一部分（数字）感兴趣。也许我应该使用data=eval(parse(text=paste0("df_",input$(ID$number))))功能，我不知道......

如果您需要更多详情，请随时提出。我希望很清楚。

提前谢谢！

R Shiny - 如何将部分ui.R SelectInput文本用于server.R

0 个答案: