# NOT RUN {
d <- docklet_create()
d %>%
docklet_pull("eddelbuettel/ubuntu-r-base") %>%
docklet_images()
d %>% docklet_images()
d %>% docklet_run("eddelbuettel/ubuntu-r-base", "R --version", rm = TRUE)
d %>% docklet_ps()
# Run a docklet containing rstudio
d %>% docklet_rstudio()
# Delete a droplet
d %>% droplet_delete()
# Add users to an Rstudio instance
## This adds 100 users to the instance, with username/passwords
## following pattern user1/user1 ... through 100
d <- docklet_create()
d %>% docklet_rstudio() %>% docklet_rstudio_addusers()
# Spin up a Shiny server (opens in default browser)
(d <- docklet_create())
d %>% docklet_shinyserver()
docklet_create() %>% docklet_shinyserver()
# Spin up a Shiny server with an app (opens in default browser)
d <- docklet_create()
path <- system.file("examples", "widgets", package = "analogsea")
d %>% docklet_shinyapp(path)
## uploading more apps - use droplet_upload, then navigate in browser
### if you try to use docklet_shinyapp again on the same droplet, it will error
path2 <- system.file("examples", "mpg", package = "analogsea")
d %>% droplet_upload(path2, "/srv/shinyapps/mpg") # then go to browser
# }
Run the code above in your browser using DataLab