title: Why some tabs of my deployed shiny dashboard are displaying errors yet they are working smoothly on local computer?
body: <p>I have built the interactive shiny dashboard to regular monitor the live tweets and underlying sentiments for different Twitter users. Fortunately, it is locally working as it is expected, but after being deployed on shinyapps.io, some of the tabs are not displaying the graphs (i.e probably the tweets are not automatically extracted). See the dashboard here (<a href="https://bnrdatascience.shinyapps.io/BNR_Tweets_Monitoring_Tool/" rel="nofollow noreferrer">https://bnrdatascience.shinyapps.io/BNR_Tweets_Monitoring_Tool/</a>).</p>
  <pre><code>#Registering the OAuth
    #_______________________________________
    #Save app credentials for access to tweets
    #consumerKey &lt;- &quot;xxxxxxxxxxxxxxxxxxxxxx&quot;
    
    #consumerSecret &lt;- &quot;xxxxxxxxxxxxxxxxxxxxxxxxxxx&quot;
    
    #accessToken &lt;- &quot;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&quot;
    
    #accessTokenSecret &lt;-  &quot;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&quot;
    
    #set up 
    setup_twitter_oauth(api_key,api_secret_key,access_token,access_token_secret)
    
  #1. Extracting the live tweets for sentiments analysis
  #______________________
    dataInput &lt;- reactive({
      data &lt;- searchTwitter(input$Input_Hashtag, n = input$Tweets_to_Download, 
                            resultType = &quot;recent&quot;, lang = &quot;en&quot;)
      
      twListToDF(data)
    })
    #__________________________________
   
    #__________________________________
    #Create reactive word cloud
    output$wordcloud &lt;- renderWordcloud2({
      ##Word clouds for all tweets
      table_1 &lt;- dataInput() %&gt;% 
        mutate(rowmumber = row_number()) %&gt;% 
        mutate(text = tolower(text)) %&gt;% 
        mutate(text = gsub(&quot;rt&quot;, &quot;&quot;, text)) %&gt;% 
        mutate(text = gsub(&quot;https&quot;,&quot;&quot;, text)) %&gt;% 
        mutate(text = gsub(&quot;t.co&quot;, &quot;&quot;, text)) %&gt;% 
        mutate(text = removeNumbers(text)) %&gt;% 
        mutate(text = gsub(&quot;coronoavirus&quot;, &quot;coronavirus&quot;, text)) %&gt;% 
        unnest_tokens(word, text) %&gt;% 
        anti_join(stop_words) %&gt;% 
        count(word, sort = T) 
      #WorldCloud materials:https://cran.r-project.org/web/packages/wordcloud2/vignettes/wordcloud.html
      wordcloud2a &lt;- function (data, size = 1, minSize = 0, gridSize = 0, fontFamily = &quot;Segoe UI&quot;, 
                               fontWeight = &quot;bold&quot;, color = &quot;random-dark&quot;, backgroundColor = &quot;white&quot;, 
                               minRotation = -pi/4, maxRotation = pi/4, shuffle = TRUE, rotateRatio = 0.4,
                               shape = &quot;circle&quot;, ellipticity = 0.75, 
                               widgetsize = NULL, figPath = NULL, hoverFunction = NULL) #color=&quot;random-light&quot;
      {
        if (&quot;table&quot; %in% class(data)) {
          dataOut = data.frame(name = names(data), freq = as.vector(data))
        }
        else {
          data = as.data.frame(data)
          dataOut = data[, 1:2]
          names(dataOut) = c(&quot;name&quot;, &quot;freq&quot;)
        }
        if (!is.null(figPath)) {
          if (!file.exists(figPath)) {
            stop(&quot;cannot find fig in the figPath&quot;)
          }
          spPath = strsplit(figPath, &quot;\\.&quot;)[[1]]
          len = length(spPath)
          figClass = spPath[len]
          if (!figClass %in% c(&quot;jpeg&quot;, &quot;jpg&quot;, &quot;png&quot;, &quot;bmp&quot;, &quot;gif&quot;)) {
            stop(&quot;file should be a jpeg, jpg, png, bmp or gif file!&quot;)
          }
          base64 = base64enc::base64encode(figPath)
          base64 = paste0(&quot;data:image/&quot;, figClass, &quot;;base64,&quot;, 
                          base64)
        }
        else {
          base64 = NULL
        }
        weightFactor = size * 180/max(dataOut$freq)
        settings &lt;- list(word = dataOut$name, freq = dataOut$freq, 
                         fontFamily = fontFamily, fontWeight = fontWeight, color = color, 
                         minSize = minSize, weightFactor = weightFactor, backgroundColor = backgroundColor, 
                         gridSize = gridSize, minRotation = minRotation, maxRotation = maxRotation, 
                         shuffle = shuffle, rotateRatio = rotateRatio, shape = shape, 
                         ellipticity = ellipticity, figBase64 = base64, hover = htmlwidgets::JS(hoverFunction))
        chart = htmlwidgets::createWidget(&quot;wordcloud2&quot;, settings, 
                                          width = widgetsize[1], height = widgetsize[2], sizingPolicy = htmlwidgets::sizingPolicy(viewer.padding = 0, 
                                                                                                                                  browser.padding = 0, browser.fill = TRUE))
        chart
      }
      
      wordcloud2a(table_1, size = 0.75, shape = &quot;circle&quot;, ellipticity = 0.60)
    })
     
  #2. Extracting the user information to show the Twitter account status
   Bankdata &lt;- reactive({
      
      userdf &lt;- lookup_users(input$Input_Hashtag)
      
      users_data(userdf)
    })
  #3. Extracting the historic tweets for trend analysis
  #___________________________________________________
   dataInput1 &lt;- reactive({
      
      data &lt;- get_timeline(input$Input_Hashtag, n=3500)
      
      as_tibble(data)
    })
  
    
  </code></pre>
  <p>In summary, The deployed app has issue with the second and third tweets extraction process.</p>
  <p>Could anyone assist me  to figure out what happening.</p>
  <p>Thanks.</p>