Tabset panel in Shiny. #r #shiny

tabset_panel.R

library(shiny)
library(dplyr)
library(ggplot2)

ui = fluidPage(
  tabsetPanel(
    tabPanel("Plot",
             plotOutput("my_plot")
    ),
    tabPanel("Data",
             dataTableOutput("my_table")
    )
  )
)

server = function(input, output) {
  output$my_plot <- renderPlot({
    mtcars %>% ggplot() + geom_point(aes(x = mpg, y = drat, color = cyl))
  })
  output$my_table <- renderDataTable({
    mtcars
  })
}

shinyApp(ui, server)