erer

test.R

library(shiny)

ui <- fluidPage(
  gioOutput("globe"),
  verbatimTextOutput("selected")
)

server <- function(input, output, session) {

  output$globe <- renderGio({
    random_data(1000) %>%
        gio()
  })

  output$selected <- renderPrint({
    print(input$selected_country)
  })

}

shinyApp(ui, server)