Question

我正在转换一些代码/脚本以在闪亮的服务器上运行。

我需要从网址中抓取html数据表，目前，要选择在我有功能的网址中更改的ID号。

Get_ID<-function()[readline("Please choose a number:>>> ")}
num.id<-GET_ID()

它工作得很好，它提示在控制台中通过键盘写入数字，并且我可以轻松地为所识别的URL运行scrape（该值被粘贴到URL的中间以用于更多代码）。

我现在正试图在ui.r文件的下拉列表中提供一个数字列表。

我有一个带有这些值的数据帧（称之为df）（预先计划好的URL ID）

NAME   number
seta   20001
setb   20002
setc   20003
setd   20004
sete   20005

我希望'NAME'出现在下拉列表中，并且“number”中的相应值将被使用并分配给变量“num.id”，以便脚本的其余部分将执行使用用户选择的当前值。

对于ui方面，我有以下几点：

selectInput("ChooseName", "df", choices=NAME), 
actionButton("submit", "SUBMIT CHOICE")

我被困在服务器端。我已经为创建一个提交按钮的观察者做了一些工作，但是我无法找到一种方法让我的全局环境中存在值，特别是赋值为“num.id” - 我上面使用的是什么。我希望每个用户都有独特的选择。即，如果用户A选择“setb”，则不会中断正在查看“已设置”的用户B.

对于背景，url会抓取一个充满数字的表格，我操作并匹配多个数据帧，然后使用ggplot2输出最终图表。从理论上讲，你可能会建议我直接将下拉列表中的反应性输入传递给ggplot2代码，但是在绘图中使用之前会有很多重新格式化，所以我想保持步骤分离。

谢谢！