output$highlight_end_ui <- renderUI({ timeInput("end_high", "Highlight end", seconds = F)
I could just make a text input, but I like the interface provided by dateRangeInput.
I have tried to use the timeInput function, but it only highlights the time range.