สำรวจข้อมูล Gapminder เพิ่มเติม

# Load the gapminder package
___

# Define UI for the application
ui <- fluidPage(
  "The population of France in 1972 was",
  textOutput("answer")
)

# Define the server function
server <- function(input, output) {
  output$answer <- renderText({
    # Determine the population of France in year 1972
    subset(___ & ___)$___
  })
}

# Run the application
shinyApp(ui = ui, server = server)