Issue to install with shinyapps.io

[guillaumeFAGOT]

Hello, I ve detected an error to install this package airtabler on shinyapps.io. There is an error on the website which has been created with no explication and on the IDE Rstudio I've this issue : Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote, : ligne finale incomplète trouvée par readTableHeader dans 'raw' (Using default: en_US) I don't use a read.table in the code of the app.

Below is the step of the installation

rsconnect::deployApp(server="shinyapps.io") _``` Preparing to deploy application...DONE Uploading bundle for application: 6062680...Detecting system locale ... DONE Deploying bundle: 5786004 for application: 6062680 ... Waiting for task: 1133451758 building: Parsing manifest building: Building image: 6750348 building: Installing system dependencies building: Fetching packages building: Installing packages building: Installing files building: Pushing image: 6750348 deploying: Starting instances rollforward: Activating new instances terminating: Stopping old instances Application successfully deployed to https://testcrossjoin.shinyapps.io/shinydebut/ Warning message: Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote, : ligne finale incomplète trouvée par readTableHeader dans 'raw' (Using default: en_US)

Below is the code

rsconnect::setAccountInfo(name='testcrossjoin', token='17441EA4805B244407DA5BF878E8E21D', secret='TLc/tLIMGQ6yyIceAY5k2xpPbUwLwo/b9egKT0CM')
library(shiny)
devtools::install_github("bergant/airtabler")
library(airtabler)

# Define UI for application that draws a histogram
ui <- fluidPage(
  titlePanel("censusVis"),

  sidebarLayout(
    sidebarPanel(
      helpText("Create demographic maps with 
               information from the 2010 US Census."),

      selectInput("var", 
                  label = "Choose a variable to display",
                  choices = c("Percent White", 
                              "Percent Black",
                              "Percent Hispanic", 
                              "Percent Asian"),
                  selected = "Percent White"),

      sliderInput("range", 
                  label = "Range of interest:",
                  min = 0, max = 100, value = c(0, 100))
    ),

    mainPanel(
      textOutput("selected_var1"),
      textOutput("selected_var2")
    )
  )
)
# Define server logic required to draw a histogram
server <- function(input, output) {

  output$selected_var1 <- renderText({ 
    paste("You have selected", input$var)
  })
  output$selected_var2 <- renderText({ 
    paste("You have selected", input$range)
  })

}

# Run the application 
shinyApp(ui = ui, server = server)