Невозможно преобразовать фактор в дату в среде Shiny-Reactive

Question

Когда я перемещаю свой код в не блестящую среду, он работает просто отлично и может конвертировать из фактора в дату.Тем не менее, когда я перемещаю код в блестящую среду.Это не похоже на работу.Это ошибка, которую я получаю.

Warning: Error in as.Date.default: do not know how to convert 'tik' to class “Date”


#Datasets

1. datatables

    Client              Amount              Reason
    0000001440MACT800   100000            6866755276

2. datatable

    CLIENTID        UPDATED-BY   DEPOSIT-TYPE    AMOUNT      UPDATED-ON
    0000001451MACT800   ADMIN   Cash-Deposit    100,000.00  7/14/2016 09:33
    0000001002MACT800   ADMIN   Cash-Deposit    100,000.00  7/14/2016 09:23
    0000001006MACT800   ADMIN   Cash-Deposit    1,500,000.00    10/3/2016 11:48
    0000001440MACT800   ADMIN   Cash-Deposit    100,000.00  7/12/2016 14:13
    0000001022MACT800   ADMIN   Cash-Deposit    150,000.00  10/6/2016 14:23
    0000001024MACT800   ADMIN   Cash-Deposit    100,000.00  7/20/2016 08:18
    0000001032MACT800   ADMIN   Cash-Deposit    100,000.00  7/20/2016 08:17
    0000001034MACT800   ADMIN   Cash-Deposit    50,000.00   7/20/2016 08:29
    0000001037MACT800   ADMIN   Cash-Deposit    100,000.00  7/20/2016 08:17
    0000001440MACT800   ADMIN   Cash-Deposit    1,000,000.00    11/3/2016 14:40
    0000001053MACT800   ADMIN   Cash-Deposit    1,000,000.00    11/3/2016 14:51
    0000001053MACT800   ADMIN   Cash-Deposit    5,000,000.00    11/9/2016 15:02
    0000001082MACT800   ADMIN   Cash-Deposit    500,000.00  11/2/2016 12:47
    0000001451MACT800   ADMIN   Cash-Deposit    7,000,000.00    11/15/2016 13:12
    0000001099MACT800   ADMIN   Cash-Deposit    6,404,564.00    11/17/2016 14:23
    0000001101MACT800   ADMIN   Cash-Deposit    50,000.00   11/2/2016 12:50

Код такой как ниже.

#ui.R
library(shinydashboard)
#library(shiny)
library(DT)

dashboardPage(
  dashboardHeader(title = "ALTX Fees"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("File Analysis"),
               menuItem("Upload .csv file",tabName = "upload",icon = icon("upload")),
               menuItem("Uploaded utrade file", tabName = "current", icon = icon("file")),
               menuItem("Uploaded cash deposit file", tabName = "tevin", icon = icon("file")),
               menuItem("Account maintenance fees",tabName = "phillo",icon = icon("money")),
               menuItem("Updated cash deposit", tabName = "calvin", icon = icon("money"))
               #menuItem(uiOutput("select file"))
      )

  ),

  dashboardBody(
    tabItems(
      tabItem(tabName = "upload",
              fluidRow(
                box(title = "Upload utrade cash deposit .csv file", status = "warning", solidHeader = TRUE,
                    width = 12,
                    input <- fileInput('file','', accept = '.csv', multiple = T ),
                    tags$hr(),
                    checkboxInput('header', 'Header', TRUE),
                    radioButtons('sep', 'Separator',c(Comma=',',Semicolon=';',Tab='\t'),',')))

      ),

      tabItem(tabName = "current",
              fluidRow(
                box(title="Utrade cash deposit file",status = "warning", solidHeader = TRUE,
                    width = 20,
                    box(
                      width = 18,
                      dataTableOutput("contents")
                    )
                )  )),
      tabItem(tabName = "tevin",
              fluidRow(
                box(title="Cash deposit file",status = "warning", solidHeader = TRUE,
                    width = 20,
                    box(
                      width = 18,
                      dataTableOutput("terry")
                    )
                )

              )),
      #code for the account maintenance fees

      tabItem(tabName = "phillo",
              fluidRow(
                box(title="Account Maintenance fees",status = "warning", solidHeader = TRUE,
                    width = 20,
                    box(
                      width = 18,
                      dataTableOutput("marvin"),
                      downloadLink("meem", "Download CSV")
                    )
                )

              )
              ),

      # code for the updated csv
      tabItem(tabName = "calvin",
              fluidRow(
                box(title="Updated Cash Deposit file",status = "warning", solidHeader = TRUE,
                    width = 20,
                    box(
                      width = 18,
                      dataTableOutput("tonia"),
                      downloadLink("downloadData", "Download CSV")
                    )
                )

              ))


  )

  )
)

Код на стороне сервера как ниже

#server.R
library(shinythemes)
library(shiny)
library(shinydashboard)
library(dplyr)
library(tidyr)

source("ui.R",local = TRUE)

function(input, output, session) {
  dhh  <- reactive({
    inFile <- input$file
    if (is.null(inFile)) return(NULL)
    datatables <- read.csv(input$file[[1, 'datapath']], check.names=FALSE)
    return(datatables)
  })

  output$terry <- renderDataTable({
    if (is.null(dhh)) return(NULL)
    datatables <- data.frame(dhh())
    datatables
  })

  mk <- reactive({
    if (is.null(input$file)) return(NULL)
    inFile <- input$file
    datatable <- read.csv(input$file[[2, 'datapath']], check.names=FALSE)
    return(datatable) 
  })


  output$contents <- renderDataTable({
    if (is.null(mk)) return(NULL)
    datatable <- data.frame(mk())
    datatable
  })

 vino <- reactive({
    jcole <- dhh()
    kendrick <- mk()

    # Make the dataframe with the help of data.frame()
    mad <- data.frame(kendrick)
    mat <- data.frame(jcole)
    # Use str() to get more info about `writers_df`
    str(mad)
    str(mat)

    tom = data.frame(mad$CLIENTID)
    tom

    tim = data.frame(mat$client)
    tim

    tin = data.frame(mad$UPDATED.ON)
    tok = tin[1,1]
    tik = data.frame(tok)
    tik
    str(tik)
    #ten = toString(tik)

    uu = as.Date(tik, format = "%m/%d/%Y")

    #tap = as.Date(ten, format = "%m/%d/%Y")
    tip = data.frame(uu)
    tip
    #tam = as.Date(factor(tik))
    #tam


  })

  output$tonia <- renderDataTable({
    vino()

  }) 

Я нахожуэто довольно странное поведение в блестящей среде.Есть ли что-то, что я не делаю правильно?Пожалуйста, помогите

tam = as.Date(factor(tik, format = "%m/%d/%Y"))
tam

Я пытался с помощью этого решения, что я вышел со страницы stackoverflow, но ничего не изменилось.