r - 在 Windows 上托管 Shiny 的应用程序

Question

首先，我的问题与

How to host Shiny apps on windows server?

但是，似乎我需要更多声誉才能在其他帖子中发表评论....

我的问题/问题:我有一个 Shiny 的应用程序，我想部署并提供给我部门的人员使用。至少目前还不能选择 Shinyapps.io 的付费版本，所以我正在寻找替代方案。我正在 Windows 上工作，根据我的理解，这是一个问题，以便托管我自己的服务器。我尝试了提供的解决方案 here ，但我收到以下错误:

"Error in makeTcpServer(host, port, appwrapper$onHeaders, appwrapper$onBodyData,  : Expecting a single value: [type=character; extent=5]. 

另外，另一种解决方案是shinyproxy。但是设置起来相当复杂，我在 Windows 10 家庭版上找不到任何方法来做到这一点(所以没有 Hyper-V 可用性......)。如果您知道这一点，请告诉我!

我将不胜感激任何帮助解决它!

谢谢，
扬尼斯

Answer 1

我猜正则表达式为 IPv4 找到 2 个值并将它们存储在 z 值中。
运行它并检查它返回多少个 IP 地址:

x <- system("ipconfig", intern=TRUE)
z <- x[grep("IPv4", x)]
z

如果打印语句看起来像这样，它将不起作用:

print(z)

1 " IPv4-Adresse . . . . . . . . . . : xxx.xxx.x.xxx" IPv4-Adresse . . . . . . . . . . : x.x.x.x"

您将不得不决定其中之一。在这个例子中，我使用了第二个 Ip-Adress ( z[2] ):我还将“launch.browser = FALSE”更改为 TRUE，以便在浏览器中打开 Shiny 的应用程序。

ip <- gsub(".*? ([[:digit:]])", "\\1", z[2])
print(paste0("the Shiny Web application runs on: http://", ip, ":1234/"))
runApp(folder_address, launch.browser=TRUE, port = 1234, host = ip)

你所在的部门有本地 Linux 服务器吗？您可以使用 Shiny Server 的开源版本轻松上传它。