states salesman totalsales
assam a 10
assam b 20
tripura c 50
meghalaya d 0
tripura c 40
assam f 29
this is how my sample data looks. i tried what you said, but no luck. my
code looks like this now.
library(shiny)
require(ggplot2)
salesdata<-read.csv("C:\\Users\\Smriti\\Documents\\sampledata.csv")
#updated<-salesdata[order(salesdata$state),]
stateinfo<-table(unique(salesdata$state))
salesinfo<-data.frame(unique(salesdata$salesman))
ui <- fluidPage(
titlePanel("Hello User"),
fluidRow(
column(3,
checkboxGroupInput("checkGroup",
h3("States"),
choices = stateinfo,
selected = 1)),
fluidRow(
column(3,
dateRangeInput("dates", h3("Date range"))),
fluidRow(
column(3,
selectInput("select", h3("Select a salesman"),
choices = salesinfo)
))
)))
server <- function(input, output) {
output$salesPlot <- renderPlot({
x <- unique(mydata1$total_sales)
y <- unique(mydata1$salesman)
barplot(x,y, col=rgb(0.2,0.4,0.6,0.6), xlab="salesman",
ylab="total_sales" )
})
}
# c_id <- reactive({
# shiny::validate(
# shiny::need(input$state, "Select a state!")
# )
# salesdata[salesdata$state == input$state, "ID"]
# })