library(DateTimeRangePicker)
library(shiny)
ui <- fluidPage(
br(),
sidebarLayout(
sidebarPanel(
width = 5,
tags$fieldset(
tags$legend("Click to change time"),
DateTimeRangePickerInput(
"dtrpicker",
style = paste0(
"background-color: chartreuse; ",
"box-shadow: 0 30px 40px 0 rgba(16, 36, 94, 0.2);"
)
)
)
),
mainPanel(
width = 7,
verbatimTextOutput("dtrpicker")
)
)
)
server <- function(input, output){
output[["dtrpicker"]] <- renderPrint({
input[["dtrpicker"]]
})
}
if(interactive()){
shinyApp(ui, server)
}
Run the code above in your browser using DataLab