在leaflet -R Shiny中突出显示来自用户输入的标记
在leaflet-R Shiny中突出显示来自用户输入的标记，可以通过以下步骤实现：
- 首先，确保已经安装了Shiny和Leaflet-R包，并加载它们：
library(shiny)
library(leaflet)- 创建一个Shiny应用程序的UI部分，包括一个输入框和一个Leaflet地图：
ui <- fluidPage(
textInput("markerInput", "输入标记名称："),
leafletOutput("map")
)- 在Shiny应用程序的服务器部分，定义一个触发器来处理用户输入，并在地图上突出显示相应的标记：
server <- function(input, output) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
setView(lng = 0, lat = 0, zoom = 2)
})
observeEvent(input$markerInput, {
markerName <- input$markerInput
leafletProxy("map") %>%
clearMarkers() %>%
addMarkers(lng = 0, lat = 0, popup = markerName, label = markerName,
highlightOptions = highlightOptions(color = "red", weight = 3))
})
}在上述代码中，我们使用observeEvent函数来监视输入框markerInput的变化。一旦用户输入发生变化，我们获取输入的标记名称，并使用leafletProxy函数来更新地图。我们首先清除之前的标记，然后添加一个新的标记，并使用highlightOptions来设置突出显示的样式。
- 最后，运行Shiny应用程序：
shinyApp(ui, server)这样，当用户在输入框中输入标记名称时，地图上将突出显示相应的标记，并显示标记名称。
对于这个问题，腾讯云没有直接相关的产品或服务。但腾讯云提供了云计算基础设施、人工智能、物联网等相关服务，可以帮助开发者构建和部署各种应用。您可以参考腾讯云的官方文档和产品介绍页面来了解更多相关信息。
相关·内容
2回答
如何从shapefile leaflet R访问多边形信息
r、shiny、leaflet
我用和shiny，R和leaflet制作了一张伦敦地图。我向shapefile添加了一个属性，现在希望能够在用户单击特定多边形时突出显示shapefile并打印信息。
我研究了、和，知道我需要使用ObserveEvent，但还不能正确地实现它。
我的代码是：
library(shiny)
library("rgdal")
library(leaflet)
shapeData <- readOGR('statistical-gis-boundaries-london/ESRI/LSOA_2004_London_Low_Resolution.shp')
sh
浏览 18提问于2018-08-29得票数 2
回答已采纳
1回答
似乎无法让map_marker_click注册我点击了闪亮/单张
r、shiny、leaflet
我想构建一个交互式地图，使我能够使用Shiny/Leaflet在R中近距离查看特定地区的设施
地区是用户输入(下拉框)，如果用户选中某个框，则会显示设施。所有这些都工作得很好。
当我单击代表该设施的标记时，我希望Leaflet/Shiny绘制与该设施相关的多边形。但是似乎R甚至没有在我的observe函数中注册我的input$map_marker_click。
所以我的ui.r代码是：
shinyUI(fluidPage(
titlePanel(""),
sidebarLayout(position = "right",
sideba
浏览 2提问于2018-03-27得票数 0
2回答
在闪亮的应用程序中添加鼠标坐标
r、shiny、leaflet
我正在开发一个闪亮的应用程序，用户单击地图(传单地图)，并在此基础上执行某些操作，比如在单击点周围绘制半径1公里的圆圈。此功能运行良好。但是，我想通过使用来自addMouseCoordinates()包的mapview函数来添加鼠标坐标。我过去用过这个，没有问题。但是，使用下面的代码，我无法看到坐标。
leafletProxy('incidentmap') %>%
addCircles(lng=clng, lat=clat, group='circles',
weight=1, radius=input$rad
浏览 0提问于2018-02-09得票数 0
回答已采纳
1回答
R在Shiny中使用带有leafletProxy的地理编码添加标记和路径
r、shiny、leaflet
我想使用新的leafletProxy功能来添加标记(或圆标记)到闪亮中的小叶地图，以及路径上的点数取决于滑块的路径。理想情况下，我也希望路线的颜色改变，如果点击。
通过使用ggmap中的geocode()函数获得的纬度和经度来添加标记
下面是我的尝试，所以far...but它似乎不是working...Any的建议将非常感谢…
# ui.R
library(shiny)
library(shinydashboard)
header <- dashboardHeader(
title = 'Simple dashbaord'
)
body <- dashboa
浏览 1提问于2015-05-20得票数 1
1回答
参考单张地图从一个格勒姆模块到另一个模块
r、shiny、leaflet、golem
我正在构建一个闪亮的应用程序，使用Golem作为框架。在我的应用程序中，我制作了几个模块，所有这些模块都由一张传单地图连接。但是，与创建映射的模块相比，我无法从另一个模块更新地图。
我试图考虑到的重命令，将map_id和parent_session包含到模块调用中，但每当我试图对地图进行任何更改时，应用程序仍然会崩溃(没有错误跟踪)。
下面是我的代码的精简版本，在单独的文件中：
app_server.R
#' The application server-side
#'
#' @param input,output,session Internal parameter
浏览 6提问于2021-12-30得票数 2
回答已采纳
1回答
如何单击传单地图，创建标记，然后在R中其他地方单击时删除该标记
r、shiny、r-leaflet
我创建了一个闪亮的应用程序，在数据框架中显示点的传单地图。
我想让用户点击地图上的任何地方，获取附近点的一些信息，并在这一点上留下一个标记。
他们可能会想在其他地方点击。当他们点击其他地方时，我希望留下一个新的标记，删除旧的标记。
我已经编写了一个工作的、闪亮的应用程序，但我无法让它开始工作。
我尝试使用clearMarkers，但是这会删除所有的标记，包括我创建的标记和底层dataframe中的标记。
我试着指定单击点的id，这样clearMarkers就可以简单地删除这个id，但是我不知道该由谁来查找单击点的id。
我怎么才能让这个起作用？
这是我的玩具代码：
librar
浏览 2提问于2018-10-15得票数 2
回答已采纳
2回答
如何重设有光泽的传单点击事件
r、shiny、leaflet
我正在构建一个名为“闪亮”的传单应用程序，其想法是用户登录查看可以点击的特定城市的概况。点击这些城市会放大到那个特定的城市。下面所示的代码可以实现这一点。
我不知道的是，我还想提供一个按钮(在选定城市之后出现)，称为“返回查看其他城市”，单击该按钮将“将”地图“重置”回原来的状态。
但是，当我单击该按钮时，会得到以下错误：
警告:UseMethod中的错误:不适用于类为"NULL“的对象的”metaData“方法
在这里，我使用input$map_marker_click来确定应用程序应该放大哪个城市，我认为问题的一部分是，在单击该应用程序后，我无法将其设置为空。还有别的办法让
浏览 1提问于2018-02-01得票数 1
回答已采纳
1回答
闪亮的传单选择输入代码
input、shiny、maps、leaflet
我要在地图上更改选定区域的圆圈颜色。需要你的建议。请帮助我为selectInput操作创建正确的selectInput操作。我需要应用程序清除我的圆圈和高亮选定的区域与特定的弹出。
我的数据：
Region Pop Latitude Lontitude
1 Cherkasy 1238593 49.444433 32.059767
2 Chernihiv 1040492 51.498200 31.289350
3 Chernivtsi 909081 48.292079 25.935837
4 City of Kyi
浏览 0提问于2017-03-01得票数 2
回答已采纳
2回答
发亮的传单:点击形状和缩放到边界(使用地图包)
r、shiny、maps、leaflet、mouseevent
出于某些原因，我被限制使用“地图”包为以传单为中心的R闪亮应用程序生成地图(例如，我不能使用形状文件、栅格等，它必须是一个地图对象)；然而，我遇到了一堵墙，我想添加一些功能。
我的目标是允许用户点击美国的一个州，并将应用程序放大到州的边界。我找到了一个非真正的解决方案，但我真正需要的是使用fitBounds()或setMaxBounds()；但是，我不知道如何检索从鼠标单击事件中选择的状态的界限。
到目前为止，我发现使用setView()的许多州都有一个“相当不错”的缩放级别。但是，对于大州和小州来说，这是行不通的。
下面是代码：
ui.R
library(shiny)
library(l
浏览 0提问于2017-03-13得票数 3
回答已采纳
1回答
如何清除与DT链接的传单地图上的标记？
r、shiny、leaflet、dt
在这个例子的基础上，可以链接DT和传单。DT上选定的行被绘制在传单上。我做了一些修改，以便在默认情况下用红色绘制地图~标记，然后当用户选择DT上的一行时，传单上的标记在blue.It中是很好的。但是，在DT上取消选中行时，蓝色高亮显示仍然显示。如何解决这个问题。使用动作按钮~清晰的表格选择~删除所有的标记，蓝色和红色。然而，我只是想让蓝色的高亮显示仍然保留着我的红色标记。
下面是我的代码和可重复的例子。谢谢
require(shiny)
require(leaflet)
require(DT)
require(tidyverse)
shiny::shinyApp(
ui = fl
浏览 3提问于2021-01-22得票数 1
回答已采纳
1回答
如何保存用户在地图上的每一次点击并单独访问它们？发亮小叶R
r、shiny、leaflet
library(shiny)
library(leaflet)
library(leaflet.providers)
ui <- fluidPage(
leafletOutput('map',width = "1331",height = "400"))
server <- function(input, output, session){
output$map <- renderLeaflet({
m<-leaflet() %>%
addProviderTiles(provider
浏览 1提问于2020-05-15得票数 2
回答已采纳
1回答
leaflet中的addMarkers函数不允许过滤数据
r、leaflet、shiny
我正在使用shinyapps中的leaflet库。我正在尝试显示我已经保存为图标的标记，这取决于用户输入下拉选择。在下面的示例中，我无法根据用户输入过滤出标记。当我只使用leaflet包而不使用shiny时，类似的代码也可以运行。
下面的示例代码位于Shiny的server.r中。
filteredData <- reactive({
sampling_data[sampling_data$county == input$county_select, ]
})
theData <- filteredData()
leafletProxy("ma
浏览 8提问于2017-12-11得票数 1
回答已采纳
1回答
小叶R光泽中input$map_click和input$map_shape_click的鉴别
r、shiny、leaflet
我想做的是，如果用户单击一条线，它会在地图右侧的框中显示行名，如果用户单击地图上的其他位置，它会“取消”这一行：
问题是，当用户单击polyline时，传单会同时触发map_shape_click ( polyline)和map_click (地图)事件。更令人烦恼的是，它会在map_shape_click事件之前触发map_click事件。
如何区分用户是单击了一行，还是只单击了基本映射，从而使选择/取消选择工作？可复制的例子：
library(shiny)
library(tidyverse)
library(leaflet)
ui <- fluidPage(
浏览 10提问于2022-08-11得票数 1
1回答
发亮的传单--一个接一个地创建弹出窗口‘随需应变’
r、shiny、leaflet
在addCirclemarkers中插入弹出框会导致映射数千个点的数据的计算时间过长。我假设所有弹出窗口都必须在显示地图之前进行计算。
我在网上搜索一种只在点击点/圆/标记时添加/创建弹出窗口的方法。目前，我在下面的代码。如果运行此代码，将看到创建了弹出窗口，但未显示要从数据中提取的字符串。我做错了什么？
library(shiny)
library(leaflet)
library(htmltools)
library(sp)
data <- data.frame(
"name"=c("Place 1","Place 2","
浏览 2提问于2017-06-13得票数 0
回答已采纳
2回答
R单张PopupGraph - addPopupGraphs on map_marker_click
r、shiny、popup、r-leaflet
我想使用r传单和传单库打开一个弹出窗口，在map_marker_click上为其中的每个标记打开一个独特的地块。
对于每个点，当用户单击它们时，将计算要显示的图。
下面是一个可复制的代码，但它不会返回任何错误。
有什么想法吗？
library(tidyverse)
library(ggplot2)
library(shiny)
library(leaflet)
library(leafpop)
id <- c(1,1,1,1,2,2,3,3,3,4)
lat <- c(49.823, 49.823, 49.823, 49.823, 58.478, 58.478, 57.478
浏览 0提问于2019-10-29得票数 2
回答已采纳
1回答
当输入更改时，发亮的传单会防止视图重置。
r、shiny、leaflet
我有一个映射，它有一系列具有关联值的行，它是基于一个由sliderInput过滤的反应数据呈现的。
当一条线被点击时，地图视图将根据这条线更新新的lng、lat和缩放值。我想要的是，当滑块被更新时，视图不会重置。据我所知，它正在重置为初始setView()中的值，因为当滑块被更改时，映射正在重新生成，但我不确定如何才能防止这种行为。
简而言之，当用户点击线路时，我希望它保持在lng/lat/变焦，即使滑块发生了变化。我怎样才能做到这一点？
下面是一个简化的可复制示例，只有一行：
library(shiny)
library(leaflet)
library(tidyverse)
library
浏览 4提问于2022-08-17得票数 0
回答已采纳
2回答
带有动作按钮的闪亮删除选项卡
r、shiny
我有一个闪亮的应用程序，打开一个标签，一旦你点击一个标记，并跳入它。现在，您可以返回到map选项卡，并单击另一个标记，该标记打开另一个选项卡，以此类推。我想要能够删除所有打开的标签与一个动作按钮。
下面是一个小示例代码，一旦您单击标记，就可以添加和跳转到一个选项卡中，但是操作按钮Remove detail tabs不起作用。
library(shiny)
library(leaflet)
library(shinydashboard)
library(purrr)
pts <- data.frame(
id= letters[seq( from = 1, to = 10 )],
浏览 0提问于2019-01-25得票数 0
回答已采纳
1回答
如何在传单地图中停止闪亮的应用程序中的反应？
r、shiny、leaflet、reactive-programming
在我闪亮的应用程序中，我有一个列出所有气象站的selectInput SITE和一个传单地图。根据我之前的问题()，我可以在不改变缩放级别的情况下使用setView。
现在我想添加一个新特性，允许用户单击地图中的标记并更新selectInput中的选定值。在我当前的代码中(参见下面的示例)，SITE的选定值会更新，但也会调用setView来更改视点。
我期望的功能是1)选择新的站点更新视图，2)点击地图不更新视图。
如何断开两个功能之间的链接？我想我可以使用isolate来实现它。老实说，我仍然对isolate感到困惑。
谢谢你的建议。
以下是我的示例代码：
library(shiny)
li
浏览 1提问于2016-01-27得票数 1
1回答
如何在传单地图中使用嵌套模块
r、shiny、shinymodules
我正在尝试使用shiny模块构建一个带有leaflet映射的应用程序。但是，当我在地图下面运行代码时，没有正确地呈现--它是灰色的。
我想要发生的是，用户从侧面面板中选择城市，并显示地图的相关部分(在问题的末尾有一个例子，使用标准的闪亮来说明)。
我认为可能是用户输入没有在模块之间正确传递，但不知道如何修复它。实际上，如果我将相关的位更改为硬代码，即城市setView(lng = data[data$pt == "London", "lng"], lat = data[data$pt == "London", "lat"], zo
浏览 5提问于2021-09-20得票数 2
回答已采纳
1回答
在R中绘制传单地图的最佳方法
r、geolocation、shiny、leaflet、polygon
我想在一张传单上画几样东西(通过闪亮的/R)
我像这样初始化地图
map = leaflet() %>% addProviderTiles("Stamen.TonerLite") %>% setView(-1.5, 53.4, 9)
output$myMap = renderLeaflet(map)
然后，根据应用程序1中单击的内容，希望绘制Markers或Polygon
sp <- reactiveValues()
ep <- reactiveValues()
area <- reactiveValues()
area$mp <- matr
浏览 0提问于2016-05-12得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
