停止功能以闪亮开始，直到按下按钮

Posted 2023-03-24

技术标签:

【中文标题】停止功能以闪亮开始，直到按下按钮【英文标题】：Stop functions starting in shiny until button pressed 【发布时间】：2012-12-10 05:58:51 【问题描述】：

我已经开始使用闪亮创建一个网络应用程序，用户输入搜索词并返回包含该词的推文。

当我加载这个应用程序时，searchTwitter 功能会自动启动，并且在主面板上出现错误：Error: You must enter a query.

在文本输入框中输入搜索词，并有一个提交按钮。您可以输入一个术语，它工作正常，但我不希望错误成为用户看到的第一件事。

ui.R:

library(shiny)

shinyUI(pageWithSidebar(  
  headerPanel("Twitter Generator"),

  sidebarPanel(    
    textInput("search", "Search Twitter For:", value = ""),    
    submitButton("Search")
    ),  

  mainPanel(
    h3(textOutput("search")),
    tableOutput("view"), 
    )
))

服务器.R：

library(shiny)
library(twitteR)

shinyServer(function(input, output) 

  datasetInput <- reactive(function()
    rawTweets <- twListToDF(searchTwitter(paste(input$search)))
    rawTweets$cleanText <- as.vector(sapply(rawTweets$text, CleanTweet))  
    rawTweets[, colnames(rawTweets) != "created"]    
  )

  output$search <- reactiveText(function() 
    input$search    
  )

  output$view <- reactiveTable(function()    
    head(datasetInput())
  )

)

感谢您的帮助

【问题讨论】：

我的问题在这里得到解答：***.com/questions/15840803 【参考方案1】：

这是对您的应用程序设计的合乎逻辑的要求，您应该考虑如何去做。

一种简单的方法是添加一个提供真/假的刻度按钮，如果值为FALSE，则跳过实际的推特搜索。你可能需要缓存rawTweets之前的值，或者设置为NULL，或者...

【讨论】：

【参考方案2】：

主面板（

h3(textOutput("搜索")),

tableOutput("视图") )

尝试不使用第二个“，”

【讨论】：