if(interactive()){
library(shinyDatetimePickers)
library(shiny)
ui <- fluidPage(
br(),
sidebarLayout(
sidebarPanel(
tags$fieldset(
tags$legend("Click to change time"),
datetimePickerInput(
"dtpicker",
style =
"font-family: Montserrat, 'Segoe UI', Tahoma, sans-serif;"
)
)
),
mainPanel(
verbatimTextOutput("dtpicker")
)
)
)
server <- function(input, output){
output[["dtpicker"]] <- renderPrint({
input[["dtpicker"]]
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab