r блестящий буклет - как сохранить значение baseGroups выбранного

Question

Я хотел бы сохранить выбранный слой, независимо от других вариантов или выборов, которые пользователь приложения делает на нашей внешней стороне листовки (которая может изменить карту). Итак, глядя на код ниже, скажем, если кто-то выбирает второй слой, я хочу, чтобы этот слой оставался выбранным (до тех пор, пока другой не будет активно выбран).

library(shiny)
library(leaflet)


ui = fluidPage(
             leafletOutput("leaf"))
###


server = function(input, output, session) {

  output$leaf <- renderLeaflet({
    leaflet() %>% 
      setView(4, 50, 4) %>% 
      addTiles(group="OpenStreetMap") %>%
      addProviderTiles(group="CartoDB.Positron", providers$CartoDB.Positron) %>%
      addLayersControl(baseGroups = c("OpenStreetMap","CartoDB.Positron"),
                       options = layersControlOptions(collapsed = FALSE)) 

  })
}

shinyApp(ui = ui, server = server, options = list(launch.browser=TRUE))

Как я могу сделать выбранное значение baseGroups реактивным? Я мог бы поиграть с порядком вектора базовых групп, но я бы предпочел сохранить их порядок.