设置launch.browser = FALSE旨在用于非交互式会话。
我看不出将应用 Package 在一个函数中以启动它的意义。请参阅?runApp：
launch.browser:如果为true，则系统的默认Web浏览器将在应用程序启动后自动启动。仅在交互式会话中设置为true。此参数的值也可以是一个函数，用于使用应用程序的URL进行调用。
并检查以下内容：

library(shiny)

# UI
ui <- fluidPage(
  titlePanel("Minimal Shiny App"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("slider", "Number of bins:",
                  min = 1, max = 50, value = 30)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

# server
server <- function(input, output) {
  output$distPlot <- renderPlot({
    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$slider + 1)
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

# Launch the app with the specified browser option
appObj <- shinyApp(ui = ui, server = server)

# opens default browser
# runApp(appObj, launch.browser = TRUE)

# opens app in viewer pane
runApp(appObj, launch.browser = function(url) {invisible(.Call("rs_shinyviewer", url, getwd(), "pane", NULL, PACKAGE = "(embedding)"))})

字符串
PS：如果你仍然想写一个自定义函数，只需复制并粘贴上面的匿名函数，并将其传递给launch.browser参数。

我想出了一个非常简单的解决办法-我真的不知道为什么这不是我尝试的第一件事。

library(shiny)

# Define a function to launch the Shiny app
launchApp <- function(Browser = FALSE) {
  # UI
  ui <- fluidPage(
    titlePanel("Minimal Shiny App"),
    sidebarLayout(
      sidebarPanel(
        sliderInput("slider", "Number of bins:",
                    min = 1, max = 50, value = 30)
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  )
  
  # server
  server <- function(input, output) {
    output$distPlot <- renderPlot({
      x    <- faithful$waiting
      bins <- seq(min(x), max(x), length.out = input$slider + 1)
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
  }
  
  # Launch the app with the specified browser option
  # simple ifelse wrap prevents from calling launch.browser = FALSE when Browser = FALSE 
  if (Browser == FALSE) {
    shinyApp(ui = ui, server = server)
  } else {
    shinyApp(ui = ui, server = server, options = list(launch.browser = TRUE))
  }
  
}

launchApp() # and launchApp(TRUE) correctly launches into the browser

字符串