cloud_view()

cloud_view.R

cloud_view <- function(obj) {
  withr::with_options(
    list(viewer = function(url, ...) {
      get_url_dir <- function(url) gsub("file://|/index.html", "", url)
      server <- servr::httd(
        dir = get_url_dir(url),
        verbose = TRUE,
        browser = FALSE
      )
      .vsc.browser(server$url, ...)
    }),
    print(obj)
  )
}

I assume there was a reason I didn't just set the viewer option to this in my remote .Rprofile, I suspect it's to do with wanting to avoid messing with other things that do work fine, like Shiny apps, but I can't remember.