Установите формат даты с помощью lubridate в R shiny

Я пытаюсь установить формат даты для ввода csv в блестящем приложении, но я действительно заблудился. Я видел много вещей, использующих switch так же, как и я, но все происходит примерно так:

 ui <- fluidPage(
   theme = shinytheme("sandstone"),             

   # Navigation bar
   navbarPage("Let's do some analysis!",

              # Upload Tab
              tabPanel("Upload",
                       sidebarPanel(
                             fileInput(inputId = "data", label = "Choose CSV Data Set",
                                       accept = c(                                                           
                                         "text/csv",
                                         "text/comma-separated-values,text/plain",
                                         ".csv")
                             ), #fileInput - data

                             checkboxGroupInput("sep1", h5("Separator"), choices = list(";" = ";" , "," = ",")),

                             fileInput(inputId = "stopwords", label = "Choose CSV Stopwords File",
                                       accept = c(
                                         "text/csv",
                                         "text/comma-separated-values,text/plain",
                                         ".csv")
                             ),#fileInput - stopwords

                             checkboxGroupInput("sep2", h5("Separator"), choices = list(";" = ";" , "," = ",")),

                             checkboxGroupInput("date", h5("Date format"), choices = list("ymd" = 1 , "mdy" = 2, "dmy" = 3, "ydm" = 4)),
                             h5("y = year, m = month, d = day"),

                           ), #sidebarPanel - Upload
                           mainPanel(
                             DT::dataTableOutput("data"),
                             h5("Please make sure you selected each separator accurately and take a look at how 'File.Date' is displayed!"),
                             br(),
                             DT::dataTableOutput("stopwords")
                           ) #maiPanel - Upload
              ), #tabPanel - Upload

              # Analizing & Modeling Tab 
              tabPanel("Analizing & Modeling",
                       fluidRow(
                         column(6,
                                visOutput('LDAvis')),
                         column(6,
                                DT::dataTableOutput("top_abstracts"), downloadButton("downloadData", "Download Top Abstracts per topic"))

                       )#fluidRow

              )#tabPanel - Analizing & Modeling 

   ) # navbarPage
 ) #fluidPage

 server <- function(input, output, session) {

   og_data <- eventReactive(input$data,{
     inFile1 <- input$data
     if (is.null(inFile1)) {
       return(NULL)
     } else {
       return(read.csv(inFile1$datapath, sep = input$sep1, header = T, stringsAsFactors = F)) 
     }
   }) # eventReactive - og_data

   og_data <- eventReactive(input$date,{
     switch (input$date,
       1 = ymd(og_data()$File.Date),
       2 = mdy(og_data()$File.Date),
       3 = dmy(og_data()$File.Date),
       4 = ydm(og_data()$File.Date)
     ) 
   }) # eventReactive - innog_data with accurate date format

   stopwords <- eventReactive(input$stopwords,{
     inFile2 <- input$stopwords
     if (is.null(inFile2)) {
       return(NULL)
     } else {
       return(read.csv(inFile2$datapath, sep = input$sep2, header = F, stringsAsFactors = F)) 
     }
   }) # eventReactive - stopwords

   # Upload tab

   output$data <- DT::renderDataTable({
     DT::datatable(og_data(), options = list(pageLength = 1, lengthMenu = c(1,3)))
   })

   output$stopwords <- DT::renderDataTable({
     DT::datatable(stopwords())
   })
 } #server function

Может кто-нибудь сказать мне, что я делаю не так?