Javascript R中的单张睡眠选项

我已经创建了一个闪亮的应用程序，其中包括一个广泛的传单地图。当向下滚动应用程序时，传单抓住鼠标并开始缩放地图。这很烦人，只有在点击地图后才能放大传单

可以找到该问题的说明以及使用JavaScript的解决方案。JavaScript是

我的问题：如何将此解决方案集成到我的闪亮应用程序中？我尝试下载JavaScript，将其放入我的闪亮文件夹，并运行以下代码，但没有成功：

library(shiny)
library(shinydashboard)
library(leaflet)

ui <- dashboardPage(

  dashboardHeader(distable =T),
  dashboardSidebar(disable = T),
  dashboardBody(
    fluidRow(
      leafletOutput("flightmap", width="100%", height=400),
      tags$head(tags$script(src="Leaflet.Sleep.js"))
    )
  )
)

server <- function(input, output) {

  output$flightmap <- renderLeaflet({

    leaflet(coordinates) %>% 
      addTiles() %>% 
      addMarkers(~LONGITUD, ~LATITUD) 

  })

}

shinyApp(ui=ui, server=server)

库（闪亮）
图书馆（shinydashboard）
图书馆（单张）
ui您可以下载具有此功能的
传单.extras
软件包。这是一个基本的例子。注意，我添加了白色间距来测试它

#devtools::install_github('bhaskarvk/leaflet.extras')

library(shiny)
library(leaflet)
library(leaflet.extras)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  tags$head(
    tags$style(
      HTML("#mymap{margin-top:500px;margin-bottom:1000px;}")
    )
  ),
  leafletOutput("mymap"),
  actionButton("recalc", "New points")
)

server <- function(input, output, session) {

  points <- eventReactive(input$recalc, {
    cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
  }, ignoreNULL = FALSE)

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$Stamen.TonerLite,options = providerTileOptions(noWrap = TRUE)) %>%
      addMarkers(data = points()) %>% suspendScroll()
  })
}

shinyApp(ui, server)

#devtools：：安装_github（'bhaskarvk/ployate.extras'））
图书馆（闪亮）
图书馆（单张）
图书馆（单张、附加资料）
你要找的就是r_颜色。