Home / How to / How to code an interactive shiny app to search Twitter: Do More With R bonus video

How to code an interactive shiny app to search Twitter: Do More With R bonus video

Hi I’m Sharon Machlis at IDG here with a bonus Do More With R video: create an interactive Shiny Web app to track tweets by a hashtag The main episode showed how to search for tweets, import them into R, and create a sortable, filterable table

This video takes that code further, with additional search and filter capabilities Let’s get started! Here in RStudio is the code from the main episode If you want to go over that, head to episode 41 on YouTube or InfoWorld <show URLs for video and article on screen please!> Now let’s turn it into a local interactive shiny app with even more filtering possibilities First, I’ll create a new shiny app in a new subdirectory in RStudio by going to File > New File > New Shiny Web Application

I’ll call my app TwitterSearch but you can call yours anything You’ll get a default appR file The ui portion of a shiny app is the user interface, or front-end HTML page that the user – in this case you – interacts with The server portion is the back-end R code that does all the computing to make a user’s request actually work

I typically first delete most of the comments in the default appR file, change the title, and load all the packages I need Next, I’ll add the code that searches for tweets, imports them to R, and wrangles a version to display in a table – but I’m going to shiny-fy it a bit I know I’m going to want the URL html-formatting function I made in the main episode I’ll copy that URL function into the top of my app

R file, before all the interactive code (I could also put it in a separate helper file and source that file) Top of my app now looks like this: Next, I’ll add code to create the initial twitter data frame from my search query That goes in the appR’s server section

Since that data frame will change and update depending on what the user requests, I need to make it a reactive value So far, there are two items that the user can change: the hashtag search query and the number of tweets to return Instead of hard coding the values at the top of the file, I want to add those as inputs users can change That means adding two user input fields in the appR ui section: hashtag_to_search and num_tweets_to_download

I’ll create a text box for entering a hashtag and numerical input box or slider for entering the number of tweets to request For number of tweets, I’ll start off by keeping the slider that came in the default appR However, I’ll change its id to num_tweets_to_download, the label that the user sees to “Number of tweets to download:”, the min value to 100, the max value to 18000, the default value to 200, and step (how much is added or subtracted with each slight move of the slider) to 100 I’m also going to delete everything in the server section between the brackets since the default app won’t work anymore now that I’m changing inputs

If I run the app by clicking the Run App button at the top right of my RStudio pane <run app> I can see my slider – although it doesn’t do anything yet If can be a little difficult to get the exact value you want when moving a slider I’m going to change that slider to a numericInput() box: That gives me a box you can type into instead of a slider Next I’m going to add a text input box for the hashtag query with shiny’s textInput() function I’ll set the box’s inputId to be hashtag_to_search, the label as “Hashtag to search:” and the default value as “#rstudioconf”

My sidebar panel code now looks like this: Notice that since I’m adding a second input argument to the sidebar panel, I needed a comma after the first input Getting parentheses and commas correct can be a challenge when coding shiny apps Creating inputs and outputs one by one and running the code after each addition can help make it easier to spot problems Let me run this updated code The basic sidebar is finished, but I need one more input in my ui to tell shiny where I want my tweet table to display I’ll put that placeholder in the main panel

The default app’s main panel has plotOutput("distPlot"), which tell shiny to save space for a plot in the main part of the page I want a reactable table there, so I’ll change plotOutput() to reactableOutput(“tweet_table”) If I click to run my app now, nothing changed But we’re almost there It’s finally time to actually get and display the tweets

Just as with the original code, I’ll use rtweet’s search_tweet() function to search for tweets and store results in tweets_df (which will contain 90 columns) I’ll then create a tweets_table_data data frame from my results, formatted to display in a table; and code the table All this server logic has to inside the server portion of the appR file I can re-use my original code with a few modifications

The most important ones: 1 Any variable that changes based on user input needs to be a reactive value, not a conventional R object I have to create and handle them in slightly different ways than a regular variable But happily, the tweaks are minor 2

Any time I need the value of a user input, I have to refer to it as input dollar sign variable name and not just variable name Let’s see how that works To turn a “regular” value into a reactive one, use shiny’s reactive({}) function I only needed to change the first three lines of the tweet_table_data code, and add closing braces and parentheses at the end The first line creates an object that can change based on user input

The second line tells shiny not to start any calculations for tweet_table_data until a tweet_df() data frame exists Without that, my app might throw an error if it tries to run calculations on a data frame that doesn’t exist Note, too, it’s tweet_df PARENTHESES and not tweet_df since that data frame is reactive Finally, the table code It needs three minor changes: Since the table is a visualization, shiny needs to know where to put it and what it is

I’ll store the table in a variable called output dollar sign tweet_table That connects it with the reactableOutput("tweet_table") placeholder in the user interface I’ll also use the renderReactable() function so shiny knows what kind of visualization it’s creating The code should require the presence of the tweet_table_data data frame, or the app might throw an error trying to generate a table from data that doesn’t exist 2

Code also needs to refer to tweet_table_data with parentheses since it’s reactive I’d like to change how the app reacts if I change the default hashtag or number of tweets to request By default, shiny will try to update the data as I’m typing A lot of times, that’s cool and useful behavior But this isn’t one of those

I don’t want the app to make a call to the Twitter API every time I type a letter or number! I’ll risk bumping into my API limit if I have a long hashtag I don’t want my app making a request to the Twitter API until I click a “Get data” button RStudio recommends an “Action button” for this As with most things in shiny, that involves in two parts: the ui and the server For the ui, I can add an action button with the actionButton() function

Let me add this to the UI: To make that button do something – or, more accurately, stop the app from doing something until all the input information is ready – I need to change the tweet_df() object from a reactive value to a reactive event That means it doesn’t change its value based on a value a user enters but an action a user takes (like a button click) Note the comma after input$my_button_id! I’ve spent a fair amount of time trying to track down shiny errors because I forget a comma after the first argument of a reactive function And I need to change the tweet_df definition in my server code If I run the app now, nothing should happen until I click the “Get data” button There are a lot more enhancements I can make to this app, such as filter by date range, add a download data button

I cover those in the article associated with this video But that’s all for this episode, thanks for watching! For more R tips, head to the Do More With R page at bit-dot-ly slash do more with R, all lowercase except for the R You can also find the Do More With R playlist on the YouTube IDG Tech Talk channel — where you can subscribe so you never miss an episode Hope to see you next time!

Source: Youtube

About umoh

Check Also

How to make your own face mask | KVUE

IF IF YOU IF YOU DON'T IF YOU DON'T HAVE IF YOU DON'T HAVE ANY …