R/remote.R

In cynkra/tv: Tibble View: Graphical Display For Data Frame Output

remote_tv <- function(path, port) {
  library(shiny)
  shiny::shinyOptions(tv_path = path)
  shiny::unApp(system.file(package = "tv", "app"), port = port)
}

remote_tv_in_own_session <- function(path, port) {

  # setup_strategy = "sequential" adresses R Studio bug, should be fixed soon (June 2020)
  # https://github.com/rstudio/rstudio/issues/6692#issuecomment-619645114
  .tv_env$cl <- parallel::makeCluster(1, setup_strategy = "sequential")


  future::remote(remote_tv(path = path, port = port), workers = .tv_env$cl)

  Sys.sleep(0.5)

  tv_url <- paste0("http://127.0.0.1:", port)

  if (Sys.getenv("RSTUDIO") == "1") {
    rstudioapi::viewer(tv_url)
  } else {
    utils::browseURL(tv_url)
  }

}