caffeine <- chent$new("caffeine")
print(caffeine)
if (requireNamespace("grConvert")) {
  plot(caffeine)
}