if (FALSE) { # has_internet() && Sys.getenv("NOT_CRAN") == "true"
# Convert a model from Insight Maker to json
destfile <- tempfile(fileext = ".json")
json <- insightmaker_to_json(
url =
"https://insightmaker.com/insight/43tz1nvUgbIiIOGSGtzIzj/Romeo-Juliet",
destfile = destfile
)
file.remove(destfile)
}
Run the code above in your browser using DataLab