Question

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

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

在textInput框中输入搜索词，并且有一个submitButton。你可以输入一个术语，它工作正常，但我不希望错误是用户看到的第一件事。

ui.R：

library(shiny)

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

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

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

server.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())
  })

})

感谢您的帮助

Answer 1

这是您的应用程序设计的逻辑请求，您应该考虑如何执行此操作。

一种简单的方法是添加一个提供true / false的tickbutton，如果值为FALSE，则跳过实际的twitter搜索。您可能需要缓存先前的rawTweets值，或将其设置为NULL，或者......

Answer 2

mainPanel中（

H3（textOutput（ “搜索”）），

tableOutput（ “视图”））

尝试没有第二个“，”

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

2 个答案: