使用以下参数部署机器学习R:错误警告:read.table中出错:未使用的参数(可选=TRUE)
我试图部署一个机器学习模型,这是在Shiny的R中写的。表呈现中的结果被打印到最终用户时出现的错误。见下面的codigo。谢谢你的帮助使用以下参数部署机器学习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
# 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)
#读入射频型号
回归器