Reactive sliderInput and dateRangeInput - r

Question

I'm trying to make a reactive table using shiny and am having trouble making my sliderInput and dateRangeInput filters reactive and am not sure where to go from here. I'm using a data frame named "joined" to make an interactive table with. I've already been able to make my columns reactive luckily meaning I can choose which columns from the data frame joined are present in the table, so any of the code about selecting certain columns can be ignored.
My goal for the dateRangeInput is that a date range can be put into the dateRangeInput and only dates that fall into that range in the "actiondate" column on my table "joined" will be displayed in the resulting table.
My goal for the sliderInput is that I can choose a range in the slider and only values of "EPM_scores" column in my table "joined" will be displayed in the resulting table.
Below is my code. Any advice I could get would be much appreciated. Thanks!
The current error message I'm getting is as follows: "error in evaluating the argument 'condition' in selecting a method for function 'filter': unused argument (input$dates[2])"
titlePanel("title"),
sidebarLayout(
sidebarPanel(
sliderInput(inputId = "Value", "1. Enter value", min = 0, max = 1, c(0,1), step = 0.01),
dateRangeInput(inputId = "dates",
"2. Enter date range",
start = min(joined$actiondate),
end = max(joined$actiondate)),
uiOutput("picker"),
actionButton("view", "View selection"),
textOutput("DateRange")),
mainPanel(ui <-
tableOutput("mytable"),
textOutput("mytext")
)),
textInput(inputId = "text",
label = "4. Enter Notes Here", "")
)
server <- function(input, output, session) {
#columns selected
data <- reactive({
joined
})
output$picker <- renderUI({
pickerInput(inputId = 'pick',
label = '3. Choose variables',
choices = colnames(data()),
options = list(`actions-box` = TRUE), multiple = TRUE)
})
datasetInput <- eventReactive(input$view,{
datasetInput <- data() %>%
dplyr::select(input$pick)
return(datasetInput)
})
#dates selected
newDates <- reactive({
filter(joined, between(actiondate, input$dates[1], input$dates[2]))
})
#slider values selected
sliderValues <- reactive({
Value = c(input$value[1], input$value[2])
})
output$mytext <- renderText(input$text)
output$mytable <- renderTable({
datasetInput()
newDates()
sliderValues()
})
}