tests/testthat/test_rep_experiment.R

In compstat-lmu/rlR: Reinforcement Learning in R

context("repeat experiment")
test_that("travis repeat experiment", {
  skip_on_cran()
  skip_on_travis()
  skip("repeat experiment should be tested individually")
  doMC::registerDoMC(4)
  agent.names = c("AgentDQN")  # too many agents takes too long  #agent.names = c("AgentDQN", "AgentFDQN", "AgentDDQN", "AgentPG", "AgentPGBaseline", "AgentActorCritic")
  env = makeGymEnv("CartPole-v0")
  lapply(agent.names, function(name) repExperiment(sname = "CartPole-v0", aname = name, conf = getDefaultConf(name), nrep = 2, nepi = 2))
  expect_true(TRUE)
})