如何防止传单地图在 R/shiny 中发生双击事件时放大

我不完全确定这是否是你所追求的，但只需单击一下即可为我工作。我认为有更好的方法可以实现这一目标（和检查），但它在我的脑海中有效且有意义。reactive()NULL

我还建议使用可能不是您想要的，因为它会在每次单击时切换表格，而不管单击是否与数据相交。 即，我可以单击同一位置两次，它会显示表格，然后隐藏它，我不确定这是用户所期望的。您也许可以使用显示/隐藏按钮来代替？shinyjs::toggle()

此代码还添加了一个标记，用户单击该标记，我发现这很有用。无论如何，希望这会有所帮助！

library(dplyr)
library(sf)
library(leaflet)
library(shiny)

# data gen ----

# outline
outline <- system.file("gpkg/nc.gpkg", package = "sf") |>
    sf::st_read() |>
    sf::st_geometry() |>
    sf::st_union() |>
    sf::st_as_sf() |>
    sf::st_transform("+proj=longlat +datum=WGS84")

# gen some polygons
poly <- outline |>
    sf::st_sample(40) |>
    sf::st_buffer(units::as_units(10, "mi")) |>
    sf::st_as_sf() |>
    dplyr::mutate(id = seq_len(dplyr::n())) |>
    dplyr::mutate(color = viridisLite::viridis(dplyr::n())) |>
    dplyr::rowwise() |>
    dplyr::mutate(label = htmltools::HTML(
        paste0(
            "<b>ID:</b> ", id, " <br/>",
            "<b>Color:</b> ", color
        )
    )) |>
    dplyr::ungroup() |>
    sf::st_set_agr("constant")

# ui ----

ui <- shiny::fluidPage(
    leaflet::leafletOutput("map"),
    shiny::tableOutput("tab")
)

# server ----

server <- function(input, output, session) {
    # initial map
    output$map <- leaflet::renderLeaflet({
        leaflet::leaflet() |>
            leaflet::addTiles(group = "OpenStreetMap") |>
            leaflet::addPolygons(
                data = outline,
                fillOpacity = .15,
                fillColor = "black",
                color = "black", weight = 2
            ) |>
            leaflet::addPolygons(
                data = poly,
                fillColor = ~color,
                fillOpacity = .75,
                stroke = FALSE,
                label = ~label
            )
    })

    # click logic
    observe({
        # clear previous click
        leaflet::leafletProxy("map") |>
            leaflet::clearMarkers()

        # get new click
        click <- input$map_click

        # add click to map
        leaflet::leafletProxy("map") |>
            leaflet::addMarkers(lng = click$lng, lat = click$lat)
    }) |>
        shiny::bindEvent(input$map_click)

    # pt
    pt <- shiny::reactive({
        if (!is.null(input$map_click$lat)) {
            pt <- sf::st_point(
                c(
                    input$map_click$lng,
                    input$map_click$lat
                )
            ) |>
                sf::st_sfc(crs = 4326) |>
                sf::st_as_sf()

            return(pt)
        } else {
            NULL
        }
    })

    # intersects
    intersects <- shiny::reactive({
        if (!is.null(pt())) {
            sf::st_intersection(pt(), poly) |>
                sf::st_drop_geometry() |>
                dplyr::select(-label)
        } else {
            NULL
        }
    })

    # table
    output$tab <- shiny::renderTable({
        if (is.null(intersects())) {
            return(NULL)
        }
        if (nrow(intersects()) > 0) {
            intersects()
        } else {
            NULL
        }
    })
}