## Not run:
# remote_base <- "http://127.0.0.1:5000"
# client <- create_GymClient(remote_base)
# env_id <- "CartPole-v0"
# instance_id <- env_create(client, env_id)
# action <- env_action_space_sample(client, instance_id)
# env_action_space_contains(client, instance_id, action)
# ## End(Not run)
Run the code above in your browser using DataLab