Отключить масштабирование, перетаскивая в gvisMap

Question

Есть ли способ полностью отключить перетаскивание и / или масштабирование в gvisMap, а также удалить элемент управления масштабированием? Я посмотрел на варианты в google.com документы для разработчиков, на которые есть ссылки в справке для gvisMap(options) но не вижу этого контроля.

Расширяя сферу вопроса, чтобы включить альтернативные пакеты, я отмечаю, что plotGoogleMaps() в упаковке R plotGoogleMaps имеет возможность draggable=FALSE, но нет соответствующего параметра для отключения зума, и рендеринг в блестящем не так просто, как renderGvis(), Я быстро взглянул на RgoogleMaps Пакет также.

Справочная информация. Мне особенно нужна спутниковая карта Google для перехода к просмотру улиц. Я установил границы карты на листовой карте с включенным масштабированием / перетаскиванием, поэтому включение масштабирования / перетаскивания в спутниковом просмотре Google является излишним / запутанным. Отключение этих возможностей - это деталь, которая улучшит UX.

[править] Этот пересмотренный пример немного длиннее, но в полной мере показывает функциональность, о которой я говорю. Он отлично работает, за исключением некоторых проблем, таких как я не знаю, зачем нужны факторы выдумки, и я не знаю, как отключить маркеры на карте Google - но они выходят за рамки моего вопроса. Однако конкретная тема моего вопроса: могу ли я отключить перетаскивание и масштабирование на карте Google, как я это делаю в leafletOptions(zoomControl = FALSE, dragging = F)? Если бы у меня был дополнительный вопрос, это было бы что-то вроде "как я могу уменьшить распространение картографических пакетов Google?" - но это не правильный вопрос для этого форума. Тем не менее, я бы приветствовал любую более широкую рекомендацию о том, как упростить это.

library(shiny)
library(leaflet)
library(googleVis)
library(RgoogleMaps)

ui <- fluidPage(fluidPage(fluidRow(
  h5('control map - use only this one to drag and zoom'),
  column(6, leafletOutput('controlmap'), offset = 0)
  ,
  h5("google map - drop 'peg man' to get street view"),
  column(6, htmlOutput('gmap'), offset = 0)
)
,
fluidRow(
  h5('choropleth - where the colour-coded data is displayed'),
  column(6, leafletOutput('fitmap'), offset = 0)
)))

server <- function(input, output) {
  latlongR <- reactive({
    if (is.null(input$controlmap_bounds)) {
      data.frame(
        Lat = c(51.52, 51.51),
        Long = c(-.106, -.096),
        Tip = as.character(1:2)
      )
    } else {
      data.frame(
        Lat = c(
          input$controlmap_bounds$north,
          input$controlmap_bounds$south
        ),
        Long = c(
          input$controlmap_bounds$east,
          input$controlmap_bounds$west
        ),
        Tip = as.character(1:2)
      )
    }
  })

  boundR <- reactive({
    fudgezoom <- .7 #fudge - unsure why neeed
    x0 <- latlongR()
    d1 <- abs(diff(x0[, 1]))
    d2 <- abs(diff(x0[, 2]))
    m1 <- mean(x0[, 1])
    m2 <- mean(x0[, 2])
    x1 <- c(m1 + fudgezoom * d1 / 2, m1 - fudgezoom * d1 / 2)
    x2 <- c(m2 + fudgezoom * d2 / 2, m2 - fudgezoom * d2 / 2)
    x3 <- cbind(x0, LatLong = paste0(x1, ':', x2))
    x3
  })

  output$controlmap <- renderLeaflet({
    leaflet(width = 500, height = 400) %>%
      addProviderTiles('OpenStreetMap') %>%
      setView(lng = -0.106831,
              lat = 51.515328,
              zoom = 15)
  })

  output$fitmap <- renderLeaflet({
    x1 <- latlongR()
    fudgefit <- .5 #this fudge depends on layout and maybe other variables
    x2 <-
      RgoogleMaps::MaxZoom(
        latrange = fudgefit * x1$Lat,
        lonrange = fudgefit * x1$Long,
        size = c(500, 400)
      )
    leaflet(
      width = 500,
      height = 400,
      options = leafletOptions(zoomControl = FALSE, dragging = F)
    ) %>%
      addProviderTiles('CartoDB.Positron') %>%
      fitBounds(
        lng1 = x1$Long[1],
        lat1 = x1$Lat[1],
        lng2 = x1$Long[2],
        lat2 = x1$Lat[2]
      ) %>%
      setView(zoom = x2,
              lat = mean(x1$Lat),
              lng = mean(x1$Long))
  })

  output$gmap <- renderGvis({
    x3 <- boundR()
    gvisMap(
      x3,
      "LatLong" ,
      tipvar = "Tip",
      options = list(
        showTip = F,
        icons = NULL,
        useZoomControl = F,
        useMapTypeControl = F
      )
    )

  })

}

shinyApp(ui = ui, server = server)