leafletOutput and recalculation opacity

[Rob Davidson]

I know there has been unresolved discussion before, is there a way to suppress the transparency change when slider is moved.  When using animation option the result is choppy and distracting.  Tried the 

          tags$style(type="text/css",

           "#mymap.recalculating { opacity: 1.0;"),

          leafletOutput("mymap"),

with no success.

You can see issue at https://robscottd.shinyapps.io/BikeApp/   

[Joe Cheng]

I think you're missing a closing } in your CSS. Other than that it looks correct.

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/61cfde8f-4b5a-4bb9-9daf-ad150d876d7e%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[Rob Davidson]

Actually that was edited wrongly by me in the original post.  The code running is:

                   

          title="Bikes and Weather!",

          tags$style(type="text/css",

           "#mymap.recalculating { opacity: 1.0 }"),

          leafletOutput("mymap"),

I tried it with the "!important" as well with no luck.  Still Blinking

Thanks for the quick response!

[Joe Cheng]

This works for me:

library(leaflet)

library(shiny)

ui <- fluidPage(

  tags$style(type="text/css",

    "#mymap.recalculating { opacity: 1.0; }"),

  leafletOutput("mymap")

)

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

  output$mymap <- renderLeaflet({

    Sys.sleep(4)

    invalidateLater(1000)

    leaflet() %>% addTiles()

  })

}

shinyApp(ui, server)

To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/d3a72e1a-1502-47a7-afd5-c311f9e5bd4d%40googlegroups.com.