如何让ShinyApp仅本地运行，不对外暴露可访问URL？

我希望创建仅在本地运行的ShinyApp，即不生成可被他人访问的URL。以下是最小示例代码：

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

运行该代码时，控制台会显示对应的URL，在浏览器中输入该URL即可访问应用。由于我们处理敏感数据，必须确保数据仅留存本地，请问如何阻止应用对外暴露？

核心解决方案 #

Shiny默认会绑定到0.0.0.0（允许所有网络接口访问），只需在启动应用时指定绑定到本地回环地址127.0.0.1，就能确保应用仅对当前设备可见，外部无法访问。

修改后的代码示例：

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

额外安全强化措施 #

• 指定自定义本地端口：如果担心默认端口被扫描，可添加port参数设置不常用端口，比如：

  shinyApp(ui = ui, server = server, options = list(host = "127.0.0.1", port = 8789))
  

• 验证访问限制：运行后控制台会显示Listening on http://127.0.0.1:8789，这个地址仅能在你的本地浏览器打开，其他设备（包括同一局域网内的设备）无法访问。
• 配合防火墙：确保电脑防火墙未开放你指定的端口，进一步阻断外部连接尝试。

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