Tabs {shiny.blueprint} | R Documentation |
Tabs
Description
Documentation: https://blueprintjs.com/docs/#core/components/tabs
Usage
Tabs(...)
Tab(...)
TabsExpander(...)
Arguments
... |
Component props and children. See the official Blueprint docs for details. |
Value
Object with shiny.tag
class suitable for use in the UI of a Shiny app.
Examples
library(shiny.blueprint)
library(shiny)
ui <- function(id) {
ns <- NS(id)
reactOutput(ns("tabs"))
}
server <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- session$ns
currentTab <- reactiveVal("react")
observeEvent(input$selectTab, currentTab(input$selectTab))
output$tabs <- renderReact(
Tabs(
selectedTabId = currentTab(),
onChange = setInput(ns("selectTab")),
Tab(id = "angular", title = "Angular", panel = "Angular"),
Tab(id = "ember", title = "Ember", panel = "Ember"),
Tab(id = "react", title = "React", panel = "React"),
TabsExpander(),
tags$input(class = "bp5-input", type = "text", placeholder = "Search...")
)
)
})
}
if (interactive()) shinyApp(ui("app"), function(input, output) server("app"))
[Package shiny.blueprint version 0.3.0 Index]