you seem to have inconsistent spellings filtereddata1 filterdata1
In principle your code is fine and works
library(shiny)
library(tidyverse)
(mergedTrainingdf <- tibble(
Date = seq.Date(
from = Sys.Date() - 10,
by = "day",
length.out = 10
),
Team = c(rep("A", 6), rep("B", 4)),
Playername = letters[1:10],
Weight = 1:10
))
ui <- fluidPage(
shiny::dateRangeInput("daterange",
label = "dates",
start = Sys.Date() - 10,
end = Sys.Date()
),
selectInput("Teaminput",
label = "Teaminput",
choices = unique(mergedTrainingdf$Team)
),
radioButtons("category",
label = "category",
choices = c("Player", "Overview"), selected = "Player"
),
selectInput("Playernameinput",
label = "Playernameinput",
choices = mergedTrainingdf$Playername,
multiple = TRUE,
selected = mergedTrainingdf$Playername
),
plotOutput("plot1")
)
server <- function(session, input, output) {
output$plot1 <- renderPlot({
f1 <- filter(mergedTrainingdf, Date >= input$daterange[1] &
Date <= input$daterange[2]) %>%
filter(Team == input$Teaminput)
if (input$category == "Player") {
f2 <- f1 %>%
filter(Playername %in% input$Playernameinput)
}
if (input$category == "Overview") {
f2 <- f1
}
ggplot(f2, aes(x = Date, y = Weight)) +
geom_point(size = 2)
})
}
shinyApp(ui, server)