R Shiny中renderPrint中的For循环

Question

在R Shiny中的renderPrint中创建一个for循环时，我遇到了问题。

    output$missing <- renderPrint({
      if(input$varType == "Measure"){
        numeric_var_summary = data.frame()
for(i in 1: ncol(numeric_variable_data)){
  local({
    NA_Count<-sum(is.na(numeric_variable_data[,i]))
    percent_na_count<-(NA_Count/nrow(numeric_variable_data))*100
    variable_name <- names(numeric_variable_data)[i]
    variable_summary<-data.frame(variable_name,percent_na_count)
    numeric_var_summary<<-rbind(bncl_numeric_var_summary,variable_summary)
  })
}
return(numeric_var_summary)
        }


      ######## DIMENSION ###########

      else if(input$varType == "Dimension"){
        naCount <- function(x) sapply(x, function(y) sum(is.na(y)))
        naCount(finalInputData() %>% select_if(is.factor))
      }
    }
    )

尽管当它的“尺寸”为“我”时会得到结果，但“度量”上没有任何结果。 所以问题是我想根据一些计算来分配向量，但我不知道正确的方法。