more uninformative error

[berndbischl]

set.seed(123)
library(keras)
load_all()

env = mountainCar()

preprocessState = function(state) {
  return(state[1,])
}

m = keras_model_sequential()
m %>% layer_dense(units = env$n.actions, activation = 'linear', input_shape = 2)

res = qlearning(m, fun.approx = "neural.network", model = m, preprocessState = preprocessState, 
  n.episodes = 5)

leads to

  Assertion on 'envir' failed: Must have class 'R6', but has classes 'keras.models.Sequential','keras.engine.training.Model','keras.engine.topology.Container','keras.engine.topology.Layer','python.builtin.object'.