Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用以下参数部署机器学习R:错误警告:read.table中出错:未使用的参数(可选=TRUE)_R_Shiny - Fatal编程技术网

使用以下参数部署机器学习R:错误警告:read.table中出错:未使用的参数(可选=TRUE)

使用以下参数部署机器学习R:错误警告:read.table中出错:未使用的参数(可选=TRUE),r,shiny,R,Shiny,我试图部署一个机器学习模型,这是在Shiny的R中写的。表呈现中的结果被打印到最终用户时出现的错误。见下面的codigo。谢谢你的帮助 # Read in the RF model regressor <- readRDS("regressor.rds") # Input Data datasetInput <- reactive({ df <- data.frame( Name = c("X88

我试图部署一个机器学习模型,这是在Shiny的R中写的。表呈现中的结果被打印到最终用户时出现的错误。见下面的codigo。谢谢你的帮助

# Read in the RF model
regressor <- readRDS("regressor.rds")





  # Input Data
  datasetInput <- reactive({  
    
    df <- data.frame(
      Name = c("X88",
               "Y60",
               "Emulsion Thickness",
               "Pcs on Screen", "Temp","Humid","Number of Fillets","Mixture"),
      Value = as.character(c(input$X88,
                             input$Y60,
                             input$Pcs.on.Screen,
                             input$Emulsion.Thickness,
                             input$Temp,
                             input$Humid,
                             input$Number.of.Fillets,
                             input$Mixture)),
      
      stringsAsFactors = FALSE)
    
    Resistance <- 0
    df <- rbind(df, Resistance)
    input <- transpose(df)
    write.table(input,"input.csv", sep=",", quote = FALSE, row.names = FALSE, col.names = FALSE)
    
    test <- read.csv(paste("input", ".csv", sep=""), header = TRUE)
    
    Output <- data.frame(Prediction=predict(regressor,as.h2o(test)), round(predict(regressor,as.h2o(test),type="raw"),3))
    print(Output)
    
  })
  
  # Status/Output Text Box # I think the error occurer here
  output$contents <- renderPrint({
    if (input$submitbutton>0) { 
      isolate("Calculation complete.") 
    } else {
      return("Server is ready for calculation.")
    }
  })
  
  # Prediction results table
  output$tabledata<- renderTable({
    if (input$submitbutton>0) { 
      isolate(datasetInput()) 
    } 
  })
  
}

####################################
# Create the shiny app             #
####################################
shinyApp(ui = ui, server = server)
#读入射频型号
回归器