clear_bitmap() not working
Zekiye-Y opened this issue · comments
Describe the bug
Using add_bitmap to add an image overlay to a map however the clear_bitmap() function does not seem to work and the bitmap will not clear unless refreshed.
To Reproduce
library(shiny)
library(mapdeck)
library(shinyWidgets)
set_token(ADD MAPDECK TOKEN HERE)
shinyApp(
ui = fluidPage(
title = "Bitmap Test",
fluidRow(
column(
# Main Window
10,
mapdeckOutput("map", height = '800', width = '101%'),
)
),
column(
2,
fluidRow(
column(
3,
switchInput("bitmap_switch",
value = F,
size = "small")
),
column(
9,
style = "margin-left: 14px;
margin-right: -14px;",
HTML(paste0("<h4><b>Bitmap Layer</b></h4>"))
)
),
)
),
server = function(input, output, session) {
map <- reactive({
mapdeck(style = mapdeck_style("streets"),
location = c(-122.3, 37.8),
zoom = 10)
})
output$map <- renderMapdeck({
map()
})
observeEvent(input$bitmap_switch, {
if(input$bitmap_switch){
mapdeck_update(map_id = "map") %>%
add_bitmap(
layer_id = "bitmap",
image = paste0(
'https://raw.githubusercontent.com/uber-common/deck.gl-data/master/',
'website/sf-districts.png')
, bounds = c(-122.519, 37.7045, -122.355, 37.829)
)
}
else{
mapdeck_update(map_id = 'map') %>%
clear_bitmap(layer_id = "bitmap")
}
})
}
)
Expected behaviour
When the bitmap layer is turned off using the switch Input button, the bitmap layer should trigger the clear_bitmap() function however it does not remove the bitmap layer
Versions
R version 4.2.2 (2022-10-31 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 22621)
Matrix products: default
locale:
[1] LC_COLLATE=English_Australia.utf8 LC_CTYPE=English_Australia.utf8 LC_MONETARY=English_Australia.utf8 LC_NUMERIC=C LC_TIME=English_Australia.utf8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] shinyWidgets_0.7.6 mapdeck_0.3.40004 shiny_1.7.4
loaded via a namespace (and not attached):
[1] Rcpp_1.0.10 rstudioapi_0.14 magrittr_2.0.3 xtable_1.8-4 R6_2.5.1 rlang_1.1.0 fastmap_1.1.0 tools_4.2.2 cli_3.6.0 jquerylib_0.1.4 withr_2.5.0
[12] htmltools_0.5.4 ellipsis_0.3.2 yaml_2.3.6 digest_0.6.31 lifecycle_1.0.3 later_1.3.0 htmlwidgets_1.6.2 sass_0.4.4 promises_1.2.0.1 memoise_2.0.1 cachem_1.0.6
``` `
Thanks for the report - should now be fixed on the master branch
Thank you!