단추가 눌릴 때까지 빛나는 시작 기능 중지

Question

사용자가 검색어를 입력하고 그 용어를 포함하는 트윗이 반환되는 반짝이는 웹 앱을 만들기 시작했습니다. Error: You must enter a query.

검색 용어는 TextInput 구성 상자에 입력되고 submitButton이 :

나는 이것이 searchTwitter 기능이 자동으로 시작되는 앱과 메인 패널에 오류가 발생로드

. 용어를 입력하면 문제가 없지만 오류가 사용자가 보는 첫 번째 문제가되기를 원하지는 않습니다.

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 : 당신의 도움이

Answer 1

이 및 응용 프로그램 설계에서 논리적 요청하고, 당신이 생각해야에 대한

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

}) 

감사합니다 그것을하는 방법을 통해.

true/false를 제공하는 틱 버튼을 추가하고 값이 FALSE 인 경우 실제 트위터 검색을 건너 뛸 수있는 쉬운 방법이 있습니다. 당신은 ...

Answer 2

mainPanel (

H3 (textOutput ("검색")),

tableOutput ("보기"rawTweets의 이전 값을 캐시해야하거나 NULL로 설정, 또는 수)

두 번째없이 그것을 시도 ) ","