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

Question

我正在帮助一位朋友对 CT 的啤酒厂数量进行一些研究。在这个社区的帮助下，我能够在传单中制作啤酒厂地图，并能够使用闪亮添加滑块。现在我希望能够将地图提供给我的朋友，以便他可以将其添加到他正在发布研究的网站上。我对此有些陌生，想知道是否有人对我有一些想法。这是我用来制作地图的代码（感谢 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 = "")
    )
)

对于 server.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)
    })
}

它在本地运行良好。当我尝试发布它时，我收到 Disconnected from Server 错误。在日志中，它说找不到“YearOpened”。 .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 以查看其他选项。假设滑块不是必需的，这可能会更容易。

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