Question

我正在努力学习R而且我一直致力于将我发现的R脚本转换为Shiny应用程序。我一直坚持一段时间的问题是我正在尝试将我的数据存储在一个被动容器中，但当我尝试访问数据时，我收到错误“无法强制关闭类型的列表”当我的代码尝试生成输出图。我知道我需要在调用它们时处理反应对象，比如方法，但我仍然遇到问题。

下面给出了我的代码的一部分，它引发了错误（相关部分在服务器中）。

var currentDate = new Date();
var validFromDate = new Date(currentDate.getFullYear(),9,24);
var validToDate = new Date(currentDate.getFullYear(),10,24);

if (currentDate >= validFromDate || currentDate <= validToDate) {
   validFromDate.setFullYear(currentDate.getFullYear(), currentDate.getMonth(), (currentDate.getHours() > 17) ? currentDate.getDate()+1 : currentDate.getDate());
} else  if (currentDate > validToDate) {
  validFromDate.setYear(currentDate.getFullYear() + 1);
  validToDate.setYear(currentDate.getFullYear() + 1);
}

$( "#datepicker" ).datepicker({ minDate: validFromDate,maxDate: validToDate });

我试过搞乱反应容器的类型，试图将数据转换为反应上下文中的数据帧;一切都无济于事。

我使用的文字数据的链接是here

Answer 1

我成功解决了这个问题。首先要消除我不需要的反应值，只需将事件处理程序直接绑定到输入：

server <- function(input, output) {

  tweets <- eventReactive(input$go, {
    searchTwitter(input$term, n=input$nTweets, lang="en")
  })

  Tweets.text <- eventReactive(input$go, {
    laply(tweets(), function(t)t$getText())
  })

  analysis <- eventReactive(input$go, {
    score.sentiment(Tweets.text(), pos, neg)
  })}

由于没有正确设置反应值，似乎没有任何功能正在运行

反应性参数无法强制关闭作为R Shiny中的列表

1 个答案: