sinacek

ui <- bootstrapPage(
  actionButton("createDir", "Create dir"),
  textOutput("info")
)

server <- function(input, output) {
  observeEvent(input$createDir, {
    dirPath <- paste0(round(as.numeric(Sys.time())))
    dir.create(dirPath)
    output$info <- renderPrint({