如何将ShinyApp限制为仅在运行它的单台电脑上访问

需求说明 #

我需要把Shiny应用严格限制在运行它的单台电脑上，禁止同一局域网内其他用户访问，同时要避免控制台输出“Listening on http://...”的信息。应用包含敏感数据，绝不允许局域网内任何用户访问，仅供特定人员在本机使用。

可复现代码 #

library(shiny)
ui <- fluidPage("Some app")
server <- function(input, output) {}
shinyApp(ui = ui, server = server)

解决方案 #

直接通过配置shinyApp的options参数，就能同时实现两个目标：

• 限制仅本机访问：设置host = "127.0.0.1"，这个地址是本地回环接口，仅对运行应用的本机可见，局域网内其他设备无法通过网络连接到该应用。
• 隐藏控制台监听信息：设置quiet = TRUE，彻底禁止控制台输出监听地址的相关内容。

修改后的完整代码：

library(shiny)
ui <- fluidPage("Some app")
server <- function(input, output) {}

shinyApp(
  ui = ui, 
  server = server, 
  options = list(host = "127.0.0.1", quiet = TRUE)
)

如果习惯用runApp启动，也可以这么写：

library(shiny)
ui <- fluidPage("Some app")
server <- function(input, output) {}

runApp(
  appDir = shinyApp(ui, server),
  host = "127.0.0.1",
  quiet = TRUE
)

验证方法 #

• 本机可以正常访问应用（可直接通过RStudio的“Run App”按钮打开，quiet模式不会显示端口，无需手动输入地址）。
• 用局域网内其他设备尝试访问任何相关地址，都会显示无法连接，确保应用不会被其他用户访问。

内容的提问来源于stack exchange，提问作者LulY