r - 如何在 Windows 上托管 Shiny 的应用程序？创建TcpServer : address not available

Question

我正在尝试使用 user1693885 的回答在 Windows 中托管我的 shinyapp here和尼古拉的回答 here ,

app=shinyApp(ui = ui, server = server)
#x <- system("ipconfig", intern=TRUE) # LOCAL ACCESS APPROACH WORKS PERFECLY
#z <- x[grep("IPv4", x)]              #LOCAL ACCESS APPROACH WORKS PERFECLY
#ip <- gsub(".*? ([[:digit:]])", "\\1", z)#LOCAL ACCESS APPROACH WORKS PERFECLY

ip="MY.IP.XXX.XXX.ETC"     # ATTEMPT WITH PUBLIC IP

print(paste0("the Shiny Web application runs on: http://", ip[1], ":1234/"))

runApp(app, launch.browser=FALSE, port = 1234, host = ip[1])

该应用程序可以在使用本地访问方法完美连接到同一网络的其他设备上运行，但是当我尝试使用我的公共(public) ip 进行远程访问时，该网站无法打开，并且当我尝试在主机中使用我的公共(public)时runApp() 函数中的参数给出了一个错误:createTcpServer:地址不可用 我已经在我的防火墙中打开了 1234 端口，是什么导致了这个？

Answer 1

1. 您是否也转发了路由器上的端口？
2. (如果您执行了 1.)您是否尝试从不您本地网络中的设备通过公共(public) IP 访问该应用程序？您的路由器可能不支持 NAT Loopback .

另一种方法是将其托管在 docker container 中.