Логическая регрессия блестящего приложения не работает, ошибка трассировки стека

Question

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

Код выглядит следующим образом: Credit to Subhasish

library(shiny)
ui<-navbarPage("Model Developement by Subhasish",
               tabPanel("Data Import",
                        sidebarLayout(sidebarPanel( fileInput("file","Upload your CSV",multiple = FALSE),
                              tags$hr(),
                              h5(helpText("Select the read.table parameters below")),
                              checkboxInput(inputId = 'header', label = 'Header', value = FALSE),
                              checkboxInput(inputId = "stringAsFactors", "stringAsFactors", FALSE),
                                          radioButtons(inputId = 'sep', label = 'Separator', 
                                         choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected = ',')
               ),
               mainPanel(uiOutput("tb1"))
               ) ),
               tabPanel("Model_dev",
                        sidebarLayout(sidebarPanel(
                          uiOutput("model_select"),
                          uiOutput("var1_select"),
                          uiOutput("rest_var_select")),
                          mainPanel( helpText("Your Selected variables"),
                                     verbatimTextOutput("other_val_show"))))
)
server<-function(input,output) {

data <- reactive({
  file1 <- input$file
  if(is.null(file1)){return()} 
  read.table(file=file1$datapath, sep=input$sep, header = input$header, stringsAsFactors = input$stringAsFactors)

})  
output$table <- renderTable({
  if(is.null(data())){return ()}
  data()
})
output$tb1 <- renderUI({
  tableOutput("table")
})
output$model_select<-renderUI({
  selectInput("modelselect","Select Algo",choices = c("Logistic_reg"="logreg","SVM"="svm"))
})
output$var1_select<-renderUI({
  selectInput("ind_var_select","Select Independent Var", choices =as.list(names(data())),multiple = FALSE)
})
output$rest_var_select<-renderUI({
  checkboxGroupInput("other_var_select","Select other Var",choices =as.list(names(data())))
})
output$other_val_show<-renderPrint({
  input$other_var_select
  input$ind_var_select
  f<-data()

  library(caret)
  form <- sprintf("%s~%s",input$ind_var_select,paste0(input$other_var_select,collapse="+"))
  print(form)

  logreg <-glm(as.formula(form),family=binomial(),data=f)
  print(summary(logreg))

})

}
shinyApp(ui=ui,server=server)

Когда я запускаю код, я получаю следующее сообщение об ошибке в R:

"Загрузка требуемого пакета: ggplot2 Предупреждение: ошибка в [[: нижний индекс выходит за пределы [трассировка стека недоступна] Предупреждение:Ошибка при разборе:: 2: 0: неожиданный конец ввода 1: ~ ^ [Нет трассировки стека] "

Это согласуется независимо от используемого набора данных. В версии браузера глянцевый я получаю сообщение «: 2: 0: неожиданный конец ввода 1: ~ ^»

Я попытался отладить код, установить и переустановить различные пакеты. У кого-нибудь есть идеи, в чем может быть проблема? Может ли это быть проблемой с ggplot2?

Я действительно ценю любую помощь.