Ошибка data.frame: выбраны неопределенные столбцы, Shiny R, lapply ()

Question

Я пытаюсь заменить значения NA средним значением столбца lapply (). Приведенные ниже функции работают абсолютно нормально при нормальном R,

 i1<- sapply(temp1, is.numeric)
    temp1[i1]<-lapply(temp[i1], function(x) replace(x,is.na(x), 
  mean(x[!is.na(x)])))

Но когда я пытаюсь сделать то же самое внутри реактивного выражения, оно говорит, что выбраны неопределенные столбцы.

    num_na<-reactive({
    file1<-input$file
    temp1<-read.csv(file=file1$datapath, sep=input$sep, 
           header = input$header, stringsAsFactors = input$stringAsFactors)
  # create logical set for numeric columns
  i1<- sapply(temp1, is.numeric)
  temp1[i1]<-lapply(temp[i1], function(x) replace(x,is.na(x), 
  mean(x[!is.na(x)])))

 })

Пожалуйста, помогите мне в этом. Его действительно трудно работать с реактивной функцией. Пожалуйста, сообщите об этом. Я создаю другое реактивное выражение, которое я буду вызывать во многих других actionButtons () в блестящем.