chakraDrawer: Drawer widget
In shinyChakraUI: A Wrapper of the 'React' Library 'Chakra UI' for 'Shiny'

Description Usage Arguments Details Value Examples

Create a drawer widget, a panel that slides out from the edge of the screen.

chakraDrawer(
  inputId,
  openButton,
  options = chakraDrawerOptions(),
  isOpen = FALSE,
  closeButton = TRUE,
  header,
  body,
  footer
)

`inputId`	widget id
`openButton`	a Chakra button to open the drawer
`options`	list of options created with `chakraDrawerOptions`
`isOpen`	Boolean, whether the drawer is initially open
`closeButton`	Boolean, whether to include a closing button
`header`	a `DrawerHeader` element
`body`	a `DrawerBody` element
`footer`	a `DrawerFooter` element

Similarly to chakraAlertDialog, you can set an action attribute and a value attribute to the Chakra buttons you include in the Chakra drawer.

A widget to use in chakraComponent.

library(shiny)
library(shinyChakraUI)

ui <- chakraPage(

  br(),

  chakraComponent(
    "mycomponent",

    chakraDrawer(
      "drawer",
      openButton = Tag$Button("Open Drawer"),
      options = chakraDrawerOptions(placement = "right"),
      header = Tag$DrawerHeader("I'm the header"),
      body = Tag$DrawerBody(
        Tag$Box("I'm the body")
      ),
      footer = Tag$DrawerFooter(
        Tag$ButtonGroup(
          spacing = "6",
          Tag$Button(
            value = "try me",
            "Try me"
          ),
          Tag$Button(
            action = "close",
            variant = "outline",
            "Close"
          )
        )
      )
    )

  )

)

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

  observe({
    print(input[["drawer"]])
  })

}

if(interactive()){
  shinyApp(ui, server)
}