US states flags

This dashboard displays flags of US states. The hard part is to find a website where the raw images are located in the same directory. This was for instance not the case for Wikipedia!

library(shiny)
library(tidyverse)
states <- read.csv("https://raw.githubusercontent.com/jasonong/List-of-US-States/master/states.csv")

ui <- fluidPage(           # FULL PAGE: don't touch!
         selectInput("state", h2("Which State?"), choices = states$State, multiple = FALSE, selected = "Alabama"),
         #url <- 
         uiOutput("image")
)  

server <- function(input, output){  # Server: computations!
    url <- reactive({
        paste0("https://www.nationsonline.org/flags_big/",input$state,"_state_flag.jpg")
    })
    output$image <- renderUI(
        img(src = url())
    )
}
# Run the app ----
shinyApp(ui = ui, server = server)  # Aggregates the app.

Listening on http://127.0.0.1:5075

NA