shinydashboard setup.r

library(shiny)
library(shinydashboard)

library(tidyverse)
library(DT)


ui <- dashboardPage(
  
  dashboardHeader(title  = "Header"), 
  
  
  dashboardSidebar(
    
    sidebarMenu(
      
      menuItem(text = "Data", tabName = "data", icon = icon("table")),
      
      menuItem(text = "Plots", tabName = "plots", icon = icon("chart-bar")))),
  
  
  dashboardBody(
    
    tabItems(
      
      tabItem(tabName = "data",
              DTOutput("data1")),
      
      tabItem(tabName = "plots",
              plotOutput("plot1"))
      
    )
  )
)



server <- function(input, output) {
  
  filteredData <- reactive(mtcars)
  
  
  output$plot1 <- renderPlot(
    
    filteredData() %>% 
      ggplot() +
      aes_string("wt", "mpg") +
      geom_point()
  )
  
  
  output$data1 <- renderDT(
    filteredData() %>% 
      datatable()
  )
  
  
}



shinyApp(ui = ui, server = server)