#when i am adding drill down option it will add with chart but I want to add same like chart image which i have attached.
library(shiny)
library(shinydashboard)
library(highcharter)
library(RMySQL)
db <- dbConnect(MySQL(),
host = "127.0.0.1",
user = "root",
password = "abcd1234@",
dbname = "hirenext")
knitr::opts_chunk$set(connection = db)
class(db)
rs = dbSendQuery(db,"CALL getRequisitionsVSFilled('1', '1', '1', '1')")
Data = fetch(rs, n=-1)
Requisitions_VS_Filleddb<-data.frame(Data)
dbDisconnect(db)
ui <- dashboardPage(dashboardHeader(title=HTML("Analytic view - Recruitment"),titleWidth = 280),
dashboardSidebar(disable = TRUE),
dashboardBody(
fluidRow(
box(title = "Requisitions VS Filled",solidHeader = T,
width = 6,collapsible = T,
highchartOutput("Requisitions_VS_Filled", height="240px"))
)
)
)
server <- function(input, output, session) {
output$Requisitions_VS_Filled <- renderHighchart({
highchart() %>%
hc_chart(type = "column") %>%
hc_xAxis(categories = Requisitions_VS_Filleddb$'mmm') %>%
hc_add_series(name="Planned",data = Requisitions_VS_Filleddb$`Planned`) %>%
hc_add_series(name="Filled",data = Requisitions_VS_Filleddb$`Filled`)%>%
hc_exporting(enabled = TRUE,filename = "Requisitions-VS-Filled")
})
}
shinyApp(ui, server)