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)