maximizeWidget: Maximize or minimize a widget in the dock

In serenity-r/luminophor: HTMLWidget implementation of Lumino

Description

Technically, minimizing a widget is more like un-maximizing a widget. When "minimized," the widget will return to its original position in the layout. When a widget is maximized, it will take up the full size of the dock.

Usage

maximizeWidget(proxy, widgetId)

minimizeWidget(proxy, widgetId)

Arguments

proxy	Proxy LuminophoR object
widgetId	ID for luminophor widget

Value

Proxy LuminophoR object

Examples

if (interactive()) {
  library(shiny)
  library(luminophor)
  shinyApp(
    ui = fluidPage(
      titlePanel("Old Faithful Geyser Data"),
      sidebarLayout(
        sidebarPanel(
          actionButton('maximize', 'Maximize Plot', icon = icon('window-maximize')),
          actionButton('minimize', 'Minimize Plot', icon = icon('window-minimize'))
        ),
        mainPanel(
          luminophorOutput('lmo', height='90vh')
        )
      )
    ),
    server = function(input, output) {
      output$lmo <- renderLuminophor(
        luminophor() %>%
          addWidget("widget-slider",
                    title = "Slider",
                    ui = sliderInput("bins", "Number of bins:",
                                     min = 1, max = 50, value = 30)) %>%
          addWidget("widget-plot",
                    title = "Plot",
                    insertmode = "split-right",
                    refwidgetID = "widget-slider",
                    relsize = 0.75,
                    ui = plotOutput("distPlot"))
      )

      output$distPlot <- renderPlot({
        x <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
      })

      observeEvent(input$maximize, {
        luminophorProxy('lmo') %>%
          maximizeWidget('widget-plot')
      })

      observeEvent(input$minimize, {
        luminophorProxy('lmo') %>%
          minimizeWidget('widget-plot')
      })
    }
  )
}

serenity-r/luminophor documentation built on Oct. 28, 2020, 9:42 p.m.