【发布时间】:2019-02-02 12:06:53
【问题描述】:
我一直在做我在 R 中的第一个小项目,但遇到了 Leaflet 地图的问题。它将使用我迄今为止指定的数据和设计正确呈现,但是一旦我在浏览器或 RStudio 中的 R 查看器中移动地图,它将不再对点击/拖动/等做出反应。即使放置几分钟也不会反应。
我也遇到了缩放功能的问题,我不确定这是因为我错过了什么还是与上述问题有关。
数据示例: Data_example
# Libraries ---------------------------------------------------------------
library("shiny")
library("tidyverse")
library("leaflet")
library("leaflet.minicharts")
# UI ----------------------------------------------------------------------
ui <- fluidPage(
titlePanel("Wiersma Sale Iceland Trip"),
mainPanel(
leafletOutput(outputId = "Map_1", height = 1080, width = 1920)
)
)
# Server ------------------------------------------------------------------
server <- function(input, output) {
sheets_data <- read.csv("Iceland_Mark2 - Data.csv")
output$Map_1 <- renderLeaflet({
m <- leaflet(data = sheets_data) %>%
addTiles() %>%
addMinicharts(
sheets_data$Long,
sheets_data$Lat,
type = "pie",
popup = popupArgs(
labels = c("A", "B", "C"),
html = paste0(
"<div>",
"<h3>",
sheets_data$Name,
"</h3>",
"Description: ",
sheets_data$Description,
"<br>",
"Media_1: ",
sheets_data$Media_1,
"</div>"
)
)
)
})
}
# Run_App -----------------------------------------------------------------
shinyApp(ui = ui, server = server)
输出: Output_of_app
它不需要漂亮,也不需要独特,但它确实需要对缩放和移动做出反应,我一辈子都无法弄清楚它为什么会这样。
【问题讨论】:
-
上面的代码对我有用。我可以在浏览器(firefox)、R-studio 窗口和 R-studio 查看器窗格中查看、放大缩小、拖动地图以及弹出窗口,而不会出现任何错误。
-
感谢您抽出宝贵时间进行测试。您认为可能存在硬件问题吗?我可以在另一台电脑上测试,看看它是否在那里工作
-
我不认为硬件是这里的根本原因。因为我已经在
Ubuntu 16.04 (64 bit)和Windows 10 (64 bit)机器上测试了你的代码。两台机器都配备了3.4.3版本的 R。但我当然无法确定它为什么不适合你。 -
是的,我在两台 Windows 10 机器和两部手机上测试了它。不幸的是,我无法缩放,一旦移动它就会锁定到位。也许我会重建,看看一个小的改变是否能解决它。非常感谢您的宝贵时间!
标签: dictionary shiny leaflet