Hi,
your code is not really reproducible because I don't know what is:
min = min(data$lossDate),
max = max(data$featureOpen)
start = floor_date(max(data$featureOpen), unit = "month")
%m-% days(1) %m-% months(1),
end = floor_date(max(data$featureOpen), unit = "month")
However, does the following answer your question:
library(shiny)
app <- shinyApp(
ui = fluidPage(
uiOutput("dateRangeSelect"),
actionButton("go", "Go!")
),
server = function(input, output) {
output$dateRangeSelect <- renderUI({
tagList(
dateRangeInput(
inputId = "dateRangeSelect",
label = "Date Range:"
)
)
})
getDateRange <- reactive({
input$go
isolate({
dateRange <- list(input$dateRangeSelect[1], input$dateRangeSelect[2])
})
return(dateRange)
})
observe({
req(input$dateRangeSelect)
dateRange <- getDateRange()
print(dateRange)
})
}
)
runApp(app)
This code gives me:
[[1]]
[1] "2018-03-22"
[[2]]
[1] "2018-03-22"