I am looking to resolve an issue i have for shiny and dplyr in server.R. Please find the code for ui.R
dateInput("Date_1",label = "Enter Date",max = Sys.Date(),format = "yyyy-mm",value = "2016-8-01"), selectInput("Product_1",label = "Product",choices = unique(part_details_2$Product),multiple =TRUE,selected = ""), selectInput("VSO_1",label = "VSO",choices = unique(failure_2$VS),multiple = TRUE,selected = " ")
Below is activity in server.R
temp_MIS03 = failure_2 %>% filter(MIS <= 03 & MFD >= input$Date_1 & Product == input$Product_1 & VS ==input$VSO_1) %>% group_by(MFD) %>% summarise(MIS03 = n()*1000) %>% left_join(disp_all,.,by = "MFD") %>% transmute(MFD ,MIS03 = MIS03/Quantity)
The user can choose either following criteria,
VSO + Product
My code is only working only when both are selected.
To complicate i need to have both "AND" or "OR" criteria in my code