Ошибка блестящего определения локальной системы в блестящем приложении и не может импортировать CSV-файлы

Question

Здравствуйте, у меня возникли проблемы. Я пытаюсь развернуть мое приложение в shinyapps, но когда у меня появляется ответ, я все равно получаю

rsconnect::deployApp('C:/Users/moroguij/Documents/R_programs/DopabatUGA/applitodeploy')
Preparing to deploy application...
Update application currently deployed at
https://jeremyuga.shinyapps.io/applitodeploy/? [Y/n] Y
DONE
Uploading bundle for application: 1965492...Detecting system locale ... DONE
Deploying bundle: 2898043 for application: 1965492 ...
Waiting for task: 705247972
  building: Parsing manifest
  building: Building image: 3212730
  building: Installing system dependencies
  building: Fetching packages
  building: Installing packages
  building: Installing files
  building: Pushing image: 3212730
  deploying: Starting instances
  terminating: Stopping old instances
Application successfully deployed to https://jeremyuga.shinyapps.io/applitodeploy/
Warning message:
Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote, : incomplete final line found by readTableHeader on 'raw'
 (Using default: en_US) 

приложение, но когда я пытаюсь импортировать файл, Где это работает? Любые предложения?

вот пример

библиотека (блестящая)

Определение интерфейса для приложения загрузки данных ----

ui <- fluidPage (</p>

# Название приложения ---- titlePanel («Загрузка файлов»),

# Макет боковой панели с определениями ввода и вывода ---- sidebarLayout (

# Sidebar panel for inputs ----
sidebarPanel(

  # Input: Select a file ----
  fileInput("file1", "Choose CSV File",
            multiple = FALSE,
            accept = c("text/csv",
                     "text/comma-separated-values,text/plain",
                     ".csv")),

  # Horizontal line ----
  tags$hr(),

  # Input: Checkbox if file has header ----
  checkboxInput("header", "Header", TRUE),

  # Input: Select separator ----
  radioButtons("sep", "Separator",
               choices = c(Comma = ",",
                           Semicolon = ";",
                           Tab = "\t"),
               selected = ","),

  # Input: Select quotes ----
  radioButtons("quote", "Quote",
               choices = c(None = "",
                           "Double Quote" = '"',
                           "Single Quote" = "'"),
               selected = '"'),

  # Horizontal line ----
  tags$hr(),

  # Input: Select number of rows to display ----
  radioButtons("disp", "Display",
               choices = c(Head = "head",
                           All = "all"),
               selected = "head")

),

# Main panel for displaying outputs ----
mainPanel(

  # Output: Data file ----
  tableOutput("contents")

)

))

Определить логи сервера c для чтения выбранного файла ----

server <- функция (вход, выход) {</p>

output $ contents <- renderTable ({</p>

# input$file1 will be NULL initially. After the user selects
# and uploads a file, head of that data file by default,
# or all rows if selected, will be shown.

req(input$file1)

# when reading semicolon separated files,
# having a comma separator causes `read.csv` to error
tryCatch(
  {
    df <- read.csv(input$file1$datapath,
             header = input$header,
             sep = input$sep,
             quote = input$quote)
  },
  error = function(e) {
    # return a safeError if a parsing error occurs
    stop(safeError(e))
  }
)

if(input$disp == "head") {
  return(head(df))
}
else {
  return(df)
}

})

}

Создание блестящего приложения ----

fantasticApp (пользовательский интерфейс, сервер)