if (FALSE) {
auth <- analogsea::do_oauth()
analogsea::droplets()
droplet <- do_provision(region = "sfo3")
analogsea::droplets()
# Deploy a _server.yml application
do_deploy_server(
droplet,
"myapp",
"local/path/to/app/",
port=8000,
forward=TRUE
)
if (interactive()) {
utils::browseURL(do_ip(droplet, "/myapp"))
}
analogsea::droplet_delete(droplet)
}
Run the code above in your browser using DataLab