app.R

library(shiny)
library(dplyr)
library(purrr)
library(readr)
library(stringr)
library(magrittr)
library(reactable)

datasets <- read_tsv(file.path("data", "datasets.tsv"))

tweets <- read_tsv(file.path("data", "tweets.tsv")) %>%
  filter(dataset_id != "x")

users <- tweets %>%
  pull(screen_name) %>%
  unique() %>%
  sort()

ui <- fluidPage(
  tags$head(
    tags$script(src = "https://platform.twitter.com/widgets.js", charset = "utf-8"),
    tags$link(href = "https://fonts.googleapis.com/css?family=Roboto+Mono", rel = "stylesheet"),
    tags$style(HTML('
      * {
        font-family: Roboto Mono;
        font-size: 100%;
      }
      #sidebar {
         background-color: #fff;
         border: 0px;
      }
      .rt-th {
        display: none;
      }
      .rt-noData {
        display: none;
      }
      .rt-pagination-nav {
        float: left;
        width: 100%;
      }
    '))
  ),
  
  sidebarLayout(
    sidebarPanel(
      id = "sidebar",
      tags$h1("tidytuesday.rocks"),
      tags$br(),
      HTML(paste0(
        "<p><a href='https://github.com/rfordatascience/tidytuesday'>Tidy Tuesday</a> is a weekly data visualization challenge for R users hosted on Twitter with #TidyTuesday.</p>",
        "<p>As of January 21, 2021, there are</p>",
        "<ul><li> 7,117 tweets from</li><li>1,508 users across</li><li>147 datasets!</li></ul>",
        "<p>Use the options below to filter the tweets by dataset or user and sort them by likes, retweets, and when they were posted. Happy plotting! \U0001F57A</p>",
        "<p>(Made by <a href='https://twitter.com/nsgrantham'>@nsgrantham</a>. Source code <a href='https://github.com/nsgrantham/tidytuesdayrocks'>on GitHub</a>.)</p>"
      )),
      tags$br(),
      tabsetPanel(
        id = "selected_tab",
        type = "tabs",
        selected = "dataset",
        tabPanel("Dataset tweets", value = "dataset",
          tags$br(),
          selectInput("dataset_name", NULL, rev(datasets$dataset_name), selected = rev(datasets$dataset_name)[1]),
          selectInput("dataset_sort_by", NULL, c("Sorted by most likes", "Sorted by most retweets", "Sorted by most recent"), selected = "Sorted by most likes"),
          uiOutput("dataset_links")
        ),
        tabPanel("User tweets", value = "user",
          tags$br(),
          selectizeInput("user_name", NULL, users, selected = sample(users, 1)),
          selectInput("user_sort_by", NULL, c("Sorted by most likes", "Sorted by most retweets", "Sorted by most recent"), selected = "Sorted by most likes"),
          uiOutput("user_links")
        )
      ),
      width = 5
    ),
    mainPanel(
      conditionalPanel(
        condition = "input.selected_tab == 'dataset'",
        reactableOutput("embedded_dataset_tweets_table", width = "600px")
      ),
      conditionalPanel(
        condition = "input.selected_tab == 'user'",
        reactableOutput("embedded_user_tweets_table", width = "600px")
      ),
      width = 7
    )
  )
)

make_links <- function(urls, text, icon = NULL) {
  if (is.na(urls)) return("")
  split_urls <- unlist(str_split(urls, ","))
  if (length(split_urls) > 1) {
    text <- paste(text, 1:length(split_urls))
  }
  names(split_urls) <- text 
  links <- imap(split_urls, ~ tags$a(.y, href = .x, target = "_blank"))
  c(icon, links)
}

embed_tweet <- function(tweet_url) {
  paste0(
    "<blockquote class='twitter-tweet'>",
    "<p lang='en' dir='ltr'>",
    "Loading...",
    "<a href='", tweet_url, "'></a>",
    "</p>",
    "</blockquote>"
  )
}

make_embedded_tweets_table <- function(tweets) {
  reactable(
    tweets,
    showPageInfo = FALSE,
    defaultPageSize = 1,
    sortable = FALSE,
    width = 600,
    height = 700,
    columns = list(status_url = colDef(cell = embed_tweet, html = TRUE)),
    rowClass = JS("function() {twttr.widgets.load()}")
  )
}

server <- function(input, output, session) {
  
  chosen_dataset <- reactive({
    datasets %>%
      filter(dataset_name == input$dataset_name) %>%
      transpose() %>%
      extract2(1)
  })
  
  dataset_tweets <- reactive({
    tweets %>%
      filter(dataset_id == chosen_dataset()$dataset_id) %>%
      select(screen_name, status_url, created_at, favorite_count, retweet_count)
  })
  
  sorted_dataset_tweets <- reactive({
    switch(
      input$dataset_sort_by,
      "Sorted by most recent" = arrange(dataset_tweets(), desc(created_at)),
      "Sorted by most likes" = arrange(dataset_tweets(), desc(favorite_count)),
      "Sorted by most retweets" = arrange(dataset_tweets(), desc(retweet_count))
    )
  })
  
  output$dataset_links <- renderUI({
    tagList(
      make_links(chosen_dataset()$dataset_files, "Data Download", "\U0001F4BE"), # floppy disk
      make_links(chosen_dataset()$dataset_articles, "Article", "\U0001F5DE"),    # rolled up newspaper
      make_links(chosen_dataset()$dataset_sources, "Source", "\U0001F4CD")       # red pin
    )    
  })
  
  output$embedded_dataset_tweets_table <- renderReactable(
    sorted_dataset_tweets() %>%
      select(status_url) %>%
      make_embedded_tweets_table()
  )
  
  observeEvent(
    sorted_dataset_tweets(),
    updateReactable("embedded_dataset_tweets_table", page = 1)
  )
  
  user_tweets <- reactive(
    tweets %>%
      filter(screen_name == input$user_name) %>%
      select(status_url, created_at, favorite_count, retweet_count)
  )
  
  sorted_user_tweets <- reactive(
    switch(
      input$user_sort_by,
      "Sorted by most recent" = arrange(user_tweets(), desc(created_at)),
      "Sorted by most likes" = arrange(user_tweets(), desc(favorite_count)),
      "Sorted by most retweets" = arrange(user_tweets(), desc(retweet_count))
    )
  )
  
  output$user_links <- renderUI(
    tagList(make_links(paste0("https://twitter.com/", input$user_name), "Twitter", "\U0001F4AC"))  # speech bubble
  )
  
  output$embedded_user_tweets_table <- renderReactable(
    sorted_user_tweets() %>%
      select(status_url) %>%
      make_embedded_tweets_table()
  )
  
  observeEvent(
    sorted_user_tweets(), 
    updateReactable("embedded_user_tweets_table", page = 1)
  )
}

shinyApp(ui, server)