inst/shinydemos/resizable_combine_with_other_interactions.R

In Yang-Tang/shinyjqui: 'jQuery UI' Interactions and Effects for Shiny

library(shiny)
library(shinyjqui)
library(highcharter)

server <- function(input, output) {

  output$foo <- renderHighchart({
    hchart(mtcars, "scatter", hcaes(x = cyl, y = mpg))
  })
  output$position <- renderPrint({
    print(input$foo_position)
  })
}
ui <- fluidPage(

  # no id
  jqui_resizable(jqui_draggable(div("aaa"))),
  jqui_draggable(jqui_resizable(div("bbb"))),

  verbatimTextOutput('position'),
  jqui_resizable(jqui_draggable(highchartOutput('foo', width = '800px', height = '800px')))
  # jqui_draggable(jqui_resizable(highchartOutput('foo', width = '800px', height = '800px')))
)

shinyApp(ui, server)