I’m trying to create a dashboard using shiny R. this is my ui.R and server.R files
Ui.R
library(shiny)
library(shinydashboard)
shinyUI(
dashboardPage(
dashboardHeader(title="Edureka"),
dashboardSidebar(
sliderInput("bins","number of breaks",1,100,50),
menuItem("Monthly Sales",tabName = "dashboard"),
menuSubItem("DevOps",tabName = "DevOps"),
menuSubItem("Blockchain",tabName = "Blockchain"),
menuSubItem("AWS",tabName = "AWS"),
menuItem("Finance Dashboard"),
menuSubItem("Revenue Generated",tabName = "Revenue"),
menuSubItem("Company Expenditure",tabName = "Expenditure")),
dashboardBody(
tabItems(
tabItem(abName = "dashboard",
fluidRow(
box(plotOutput("$histogram")))
),
tabItem(tabName = "DevOps",
h1("DevOps courses sold")
),
tabItem(tabName = "Blockchain",
h1("Blockchain courses sold")
),
tabItem(tabName = "AWS",
h1("AWS Courses sold")
)),
tabItem(tabName = "Revenue", h1("Revenue Generated")),
tabItem(tabName = "Expenditure",h1("Company Expenditures"))
)
)
)
I want revenue generated and company expenditure in revenue generated and company expenditure section under finance dashboard.