在 Windows 上托管闪亮的应用程序

Question

首先我的问题与

How to host Shiny apps on windows server?

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

我的问题/疑问：我有一个闪亮的应用程序，我想部署它并提供给我部门的人。至少现在，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

如果打印语句看起来像这样，它就不会起作用：

打印（z）

1" IPv4 地址 .. . . . . . . . . . . . : xxx.xxx.x.xxx" IPv4 地址 . . . . . . . . . . : x.x.x.x"

您必须选择其中之一。在此示例中，我使用第二个 Ip-Adress (z[2])：我还将“launch.browser = FALSE”更改为 TRUE，以便闪亮应用在浏览器中打开。

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 的开源版本轻松将其上传到那里