shiny::runGadget(shiny::basicPage("Hello, world."), function(...) {})

callr::r_bg(
  function() {
    shiny::runGadget(shiny::basicPage("Hello, world."), function(...) {})
  },
  env = Sys.getenv() # 起動に使うブラウザの設定などを引き継ぐ
)

callr::r(function() {
  browseURL("https://example.com") # なにも起きない
  rstudioapi::viewer("https://example.com") # RStudio not running というエラーが発生
})

# ShinyアプリケーションのURL保存先
shinyURL <- tempfile()
writeLines("", shinyURL)

# バックグラウンドでのshinyの起動
callr::r_bg(
  function(shinyURL) {
    viewer <- function(url) {
      # Shinyがブラウザを開くつもりでこの関数を実行する
      # つまりShinyが起動すると、一時ファイルにURLが書き込まれる
      writeLines(url, shinyURL)
    }
    shiny::runGadget(
      shiny::basicPage("Hello, world."),
      function(...) {},
      viewer = viewer
    )
  },
  args = list(shinyURL = shinyURL) # メインプロセスと変数を共有するには
                                   # 関数の引数を経由させる
)

# 一時ファイルへのURL書き込みを確認できたらブラウザかViewerペインを起動する
# 無限待ちしないように適当な回数のループにしておく
for (i in seq(10)) {
  url <- readLines(shinyURL)
  if (url != "") {
    browseURL(url) # または rstudioapi::viewer(url)
    break
  }
  Sys.sleep(0.2)
}

p <- callr::r_bg(function() Sys.sleep(2)) # 2秒間スリープするバックグラウンドプロセス
p$suspend() # プロセスを一時停止
#> NULL
Sys.sleep(4) # 2秒以上待つ
p$get_exit_status() # 一時停止中に待ってもexit statusはNULLのまま
#> NULL
p$resume() # プロセスを再開
#> NULL
Sys.sleep(4) # 2秒以上待つ
p$get_exit_status() # スリープ期間を経過したため、exitしている
#> [1] 0
p$kill() # プロセスは終了済みなのでFALSEが返る
#> [1] FALSE