powered by
print_model_json(fig, prepare = TRUE, pretty = TRUE, file = "", pbcopy = FALSE)
toJSON
cat
p <- figure() %>% ly_points(1:10) %>% tool_pan(dimensions = "height") print_model_json(p)
Run the code above in your browser using DataLab