Esquisse module in flexdashboard with shiny is not rendering

[lodderig]

I tried to adapt the example of the esquisse module for shiny to a flexdashboard with shiny but the plots are not rendering.
It reads the column names but it does not update the chart selection nor does it render a plot.

see https://stackoverflow.com/questions/67284944/ggplot-plot-from-esquisse-package-not-rendering-in-flexdashboard

[pvictor]

That's weird, this seems specific to flexdashboard
It looks like shiny thinks that the graph is not displayed on the screen and therefore does not do the reactive calculation... maybe due to some CSS...

[Edouard-Legoupil]

Hi, @lodderig Did you found a solution? @pvictor - Would be awesome if you could provide a working example

[lstehlik2809]

@lodderig, @Edouard-Legoupil, I have put esquisse_ui() function into renderUI() function and it works fine. Give it a try.

Full example:

esqSData <- reactiveValues(data = mydata, name = "My Data")

esquisse_server(
  id = "esquisse",
  data_rv = esqSData,
  import_from = c("env", "file", "copypaste", "googlesheets") )

renderUI(
  esquisse_ui(
    id = "esquisse",
    header = TRUE,
    container = esquisseContainer(),
    controls = c("labs", "parameters", "appearance", "filters", "code"),
    insert_code = FALSE
    )
)