## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( eval = AnVIL::gcloud_exists(), collapse = TRUE, cache = TRUE ) ## ----lka, message = FALSE----------------------------------------------------- # library(AnVIL) # library(dplyr) ## ----dockstore---------------------------------------------------------------- # dockstore <- Dockstore() ## ----getmeths----------------------------------------------------------------- # knitr::kable(tags(dockstore) %>% count(tag)) ## ----lku---------------------------------------------------------------------- # tags(dockstore, "users") %>% print(n = Inf) ## ----lklk, eval = FALSE------------------------------------------------------- # myuid <- dockstore$getUser() %>% # as.list() %>% # pull("id") ## ----sessionInfo, echo=FALSE-------------------------------------------------- # sessionInfo()