将用R制作的闪亮/传单地图发布到网站

Question

我正在帮助一个朋友对康涅狄格州的啤酒厂数量进行一些研究。在这个社区的帮助下，我能够在传单中制作啤酒厂的地图，并能够使用闪亮添加滑块。现在我希望能够给我的朋友地图，以便他可以将其添加到他发布研究的网站上。我是其中的一些新手，想知道是否有人对我有一些想法。这是我用来制作地图的代码(感谢 Ben(：

library(shiny)
library(leaflet)
ui <- bootstrapPage(
tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
leafletOutput("map", width = "100%", height = "100%"),
absolutePanel(bottom = 30, right = 10,
textOutput("Counter"),
sliderInput("Year", "Year", 1990, 2000, value = 1995, step = 1, sep = "")
)
)
server <- function(input, output, session) {
sliderData <- reactive({
breweries_subset %>%
filter(YearOpened <= input$Year)
})
output$Counter <- renderText(
paste("Number Breweries: ", nrow(sliderData()))
)
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
fitBounds(min(breweries_subset$Longitude), min(breweries_subset$Latitude),
max(breweries_subset$Longitude), max(breweries_subset$Latitude))
})
observe({
leafletProxy("map", data = sliderData()) %>%
clearMarkers() %>%
addProviderTiles(provider = 'Esri.WorldStreetMap') %>%
addAwesomeMarkers(icon = beer_icon,
group = 'Breweries',
popup = ~ Name)
})
}
shinyApp(ui = ui, server = server)

更新

我接受了你的建议，并尝试发表到 shinyapps.io。这是我使用的代码：

对于 ui。R：

library(shiny)
library(leaflet)
ui <- bootstrapPage(
tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
leafletOutput("map", width = "100%", height = "100%"),
absolutePanel(bottom = 30, right = 10,
textOutput("Counter"),
sliderInput("Year", "Year", 1990, 2019, value = 1995, step = 1, sep = "")
)
)

而对于服务器。R：

library(shiny)
library(leaflet)
library(leaflet.extras)
library(fontawesome)
library(rsconnect)
function(input, output, session) {
ct_breweries <- read.csv('ct_breweries.csv', header=TRUE, sep=',')
sliderData <- reactive({
ct_breweries %>%
filter(YearOpened <= input$Year)
})
output$Counter <- renderText(
paste('Number of Breweries: ', nrow(sliderData()))
)
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
fitBounds(min(ct_breweries$Longitude), min(ct_breweries$Latitude),
max(ct_breweries$Longitude), max(ct_breweries$Latitude))
})
observe({
leafletProxy('map', data = sliderData()) %>%
clearMarkers() %>%
addProviderTiles(provider = 'Esri.WorldStreetMap') %>%
addAwesomeMarkers(icon = beer_icon,
group = 'Breweries',
popup = ~ Name)
})
}

它在本地工作正常。当我尝试发布它时，我收到与服务器断开连接错误。在日志中，它说没有找到有关"YearOpen"的内容。.csv中肯定有一列。我想知道这是否与对秋天的召唤有关。有什么想法吗？谢谢

Answer 1

尝试将所有包加载和数据集读取添加到global.R文件(在同一应用文件夹中(，如下所示：

library(shiny)
library(leaflet)
library(leaflet.extras)
library(fontawesome)
library(rsconnect)
ct_breweries <- read.csv('ct_breweries.csv', header=TRUE, sep=',')

然后，您可以从ui.R和server.R中删除这些内容。

问题似乎是数据集对服务器不可见 - 这应该可以解决这个问题。此外，请确保 csv 文件位于同一文件夹中。

更新

根据我上面的评论，如果这足够了，您可以保存地图的 html 文件，您可以将其发送给您的朋友以在浏览器中打开。我试图在没有您的数据的情况下编写代码，因此这可能不起作用。

library(leaflet)
library(fontawesome)
library(htmlwidgets)
ct_breweries <- read.csv('ct_breweries.csv', header=TRUE, sep=',')
leaflet_map <- leaflet(data = ct_breweries) %>%
addProviderTiles(provider = 'Esri.WorldStreetMap') %>%
addAwesomeMarkers(icon = beer_icon,
group = ~ YearOpened,
popup = ~ Name) %>%
addLayersControl(
overlayGroups = 1990:2000,
options = layersControlOptions(collapsed = FALSE)
) %>% hideGroup(~ YearOpened)
saveWidget(leaflet_map, file="leaflet_map.html")

它确实丢失了滑块选项 - 替换为复选框。您可以删除hideGroup()并collapsed = FALSE以查看其他选项。假设滑块不是必需的，这可能会更容易。

此文件离线保存，但您需要互联网连接才能获取传单地图图块。