R包传单中的全屏选项？

Question

以下代码生成了一个闪亮的应用程序，两次输出（几乎）相同。一个使用包“rcharts”，另一个包“leaflet”

第一张地图有一个全屏按钮。这可以与包传单（）一起使用吗？

library(shiny)
library(rCharts)
library(leaflet)

runApp(

  ## UI ####
  list(ui = (basicPage(
    headerPanel("tests"),
    mainPanel(
      chartOutput("map1", "leaflet"),
      "some text...",
      leafletOutput('map2')
    )
  )),

  ## server ####
  server = function(input, output) {

    output$map1  <- renderMap({
      map1 <- Leaflet$new()
      map1$fullScreen(TRUE)
      map1$setView(c(39.603609, -8.415081), 10)
      map1
    })

    output$map2 <- renderLeaflet({
      leaflet() %>%
        addTiles() %>%
        setView(lng = -8.415081, lat = 39.603609, zoom = 10)
    })
    }
      ))

谢谢

Answer 1

有一个名为 Leaflet.Control.FullScreen 的 Leaflet javascript 库插件。

但是，这个插件还没有（还）在leaflet 的 R 版本中实现。我已经在leafletGithub page 上发布了一个功能请求，但到目前为止还没有收到任何回复。

Answer 2

面向未来的读者

使用包leaflet.extras，您可以为您的地图添加全屏控件。

library(leaflet)
library(leaflet.extras)
leaflet() %>%
    addTiles() %>%
    addFullscreenControl()