无法预测 R Shiny 中的单个值

Question

I am creating a dashboard with R shiny, but due to some problem during simulation prediction, it won't work. Strange thing is that exactly the same code works for another prediction:

sim_pred_data <- na.omit(sim_pred_data)

sim_pred_data <- as.matrix(sim_pred_data)

sim_predicted_output <-predict(lasso_best, s=lambda_best, newx=sim_pred_data)

During execution i get the following error:

Warning: Error in h: error in evaluating the argument 'x' in selecting a method for function 'as.matrix': invalid class 'NA' to dup_mMatrix_as_dgeMatrix

I also get the same error when I delete the as.matrix line here, but need that line for the second mentioned case.

The model is already prefitted.

ALteratively the following code throws another error:

Warning: Error in contrasts<-: contrasts can be applied only to factors with 2 or more levels

sim_pred_data <- na.omit(sim_pred_data)

sim_pred_data <- as.matrix(sim_pred_data)
sim_dummy <- dummyVars(" ~ .", data=sim_pred_data)

sim_pred_data <<- data.frame(predict(sim_dummy, newdata =          
sim_pred_data))

sim_predicted_output <-predict(lasso_best, s=lambda_best, 
newx=sim_pred_data)

The provided data has only one observation and named columns, to predict that single value.

I hope someone can help. Thanks

Answer 1

Try this instead of using omit() :

if (is.na(sim_pred_data)){}
else {
  sim_pred_data <- as.matrix(sim_pred_data)
  sim_predicted_output <-predict(lasso_best, s=lambda_best, 
  newx=sim_pred_data)
}