Demonstration of plotOutput("gg_map", click = "ggmap_click") functionality for geom_sf()

plot-click-with-geom_sf.R

library("shiny")
library("tidyverse")
library("rnaturalearthdata")
library("sf")

# Using Africa instead of whole world as countries110 contains
# 3 invalid geometries. Also, too many examples use the USA everytime
africa_sf <- countries110 %>% 
  st_as_sf() %>% 
  st_transform(4326) %>% 
  filter(continent == "Africa")


ui <- fluidPage(
  h1("Plot brush with geom_sf"),
  wellPanel("Click in a country to populate the table below the chart"),
  plotOutput(
    "gg_world_map",
    click = "gg_world_map_click",
    height = "600px",
    width = "100%"
  ),
  wellPanel("The table below provides detail on the selected country"),
  tableOutput("table_click")
)

server <- function(input, output, session) {
  output$gg_world_map <- renderPlot({
    ggplot() +
      geom_sf(data = africa_sf)
    
  }, res = 96)
  
  output$table_click <- renderTable({
    if (is.null(input$gg_world_map_click)) {
      return()
    }
    
    selected_point <- tibble(long = input$gg_world_map_click$x,
                             lat = input$gg_world_map_click$y) %>%
      st_as_sf(coords = c("long", "lat"),
               crs = 4326)
    
    st_intersection(selected_point, countries_sf) %>%
      st_drop_geometry() %>%
      select(name, pop_est, gdp_md_est)
    
    
  })
}

shinyApp(ui, server)