Использование пакета logistf с Блестящим получил код ошибки «объект не найден»

Question

Получение этой ошибки всякий раз, когда я использую пакет logistf

library(rsconnect)
library(shiny)
library(data.table)
library(shinythemes)
library(logistf)

shinyApp(ui = navbarPage(theme = shinytheme("cerulean"),
                         "HeadData",
                         tabPanel("Analysis",
                                  sidebarPanel(
                                    tags$h5('Select a ID'),            
                                    selectInput(inputId = 'id', label = 'ID Number', choices ='')
                                  ), 
                                  mainPanel(
                                    tabsetPanel(
                                      tabPanel("Logistic Regression",
                                               h4('Losistic Regression with Model Selection'),
                                               verbatimTextOutput(outputId = 'mytable')
                                      )
                                    )
                                  )
                         )
),

server <- function(input, output, session) {

  fn = '/Users/desktop/data.csv'
  headdata = fread(fn, sep = ',',header = T)
  headdata = headdata[,c(4,6, 14,26:34, 41:43, 45:47, 54:59, 66:68, 72, 109)]


  updateSelectInput(session, 'id', choices = sort(headdata$ID))



  output$mytable = renderPrint ({
    temp = headdata[headdata$ID == input$id, -1]
    log.temp = logistf(NOH_Today ~ TotalLightningFreq_median +
                    BP_Daily_Mean + DBT_Daily_Mean +
                    RH_Daily_Mean + WS_Daily_Mean + Season_Number +
                    Precip_Daily_Total, data = temp)
    backwards = backward(log.temp)
    backwards
    })

  #   Logistic Regression
  #   log.temp = glm(temp$NOH_Today ~ ., data = temp, family = binomial)
  #   backwards = step(log.temp, trace = 0)
  #   if(backwards$rank == 1) {
  #     backwards_revise = step(log.temp, steps = nrow(backwards$anova) -2, trace = 0)
  #     print(summary(backwards_revise))
  #   } else {
  #     print(summary(backwards))
  #   }
  # })

})}

Если я использую метод логистической регрессии, все работает отлично.Я держу этот вопрос более одного месяца и в основном пробую все.И я до сих пор понятия не имею, как это происходит.

Мне нужен намек на то, как это решить?