Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

jqui_resizable blocked by other elements if nested in tagList? #85

Open
Toniiiio opened this issue Jun 6, 2022 · 1 comment
Open

jqui_resizable blocked by other elements if nested in tagList? #85

Toniiiio opened this issue Jun 6, 2022 · 1 comment
Labels

Comments

@Toniiiio
Copy link

Toniiiio commented Jun 6, 2022

Thanks for the great package!

Consider the following code. It has three elements.
But if you uncomment jqui_resizable(leafletOutput('myMap')), the two dygraphs are not resizable any more.

However, if i do not nest the outputs in a tagList it also seems to work.

# works 
jqui_resizable(leafletOutput('myMap')),
jqui_resizable(dygraphOutput("rew", height = "100px")),
jqui_resizable(dygraphOutput("rew2", height = "100px"))

So my assumption would be that jqui_resizable() is blocked (if nested in tagList()) by another element ?
For my use case not using tagList() as a workaround is hardly possible.

Thanks for any help!

Reproducible example:

library(shiny)
library(leaflet)
library(dygraphs)
library(shinyjqui)

ui <- fluidPage(
  # jqui_resizable(leafletOutput('myMap')),
  # jqui_resizable(dygraphOutput("rew", height = "100px")),
  # jqui_resizable(dygraphOutput("rew2", height = "100px"))
  uiOutput("xx")
)

server <- function(input, output, session) {
  map = leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17)
  output$myMap = renderLeaflet(map)
  
  output$rew <- renderDygraph({
    dygraph(ldeaths)
  })
  
  output$rew2 <- renderDygraph({
    dygraph(mdeaths)
  })
  
  output$xx <- renderUI({
    out <- tagList()
    out <- tagList(out, jqui_resizable(dygraphOutput("rew", height = "100px")))
    out <- tagList(out, jqui_resizable(dygraphOutput("rew2", height = "100px")))
    out
  })
}

shinyApp(ui, server)
@Yang-Tang Yang-Tang added the bug label Jun 8, 2022
@Yang-Tang
Copy link
Owner

Yang-Tang commented Jun 8, 2022

Thanks for bringing me to this. Looks like it's a bug. I'll let you know if I find any clue

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

2 participants