问题描述
我下面有一个闪亮的应用程序，用户可以在其中上传文件（这里我只是将dt放入了反应性函数中），然后他可以从其中通过{{选择要显示为selectInput()的列1}}。然后，他应该可以点击pickerInput()并查看地图。
用户还应该能够通过将所有值分别乘以Update2 depth和stations来更新numericInput()和value1值并创建新的value2，因此也更新了表中显示的数据框。仅当用户单击sliderInput()操作按钮时，才应应用这些更改。
当我单击特定点时，会在地图下方显示一个带有相关数据的表格。问题是，当我执行其他操作（例如，更新地图或其他操作）时，此表保留在此位置，而我希望它消失并在再次单击某个点时重新出现。我使用了this解决方案中提出的shinyjs（），但它不起作用。
要执行应用，请上传此excel文件。
Update2我认为我的方法不起作用的主要原因是文件上传，这就是为什么我不按原样使用它而必须首先上传它的原因。
library(openxlsx)
# read data from an Excel file or Workbook object into a data.frame
df <- read.xlsx('quakes.xlsx')
# for writing a data.frame or list of data.frames to an xlsx file
write.xlsx(quakes,'quakes.xlsx')
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）