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

Question

首先我的问题与

如何在 Windows 服务器上托管 Shiny 应用程序？

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

我的问题/疑问：我有一个闪亮的应用程序，我想部署并提供给我部门的人。至少现在，shinyapps.io 的付费版本不是一个选项，所以我正在寻找替代方案。我在 Windows 上工作，这是我理解的一个问题，以便托管我自己的服务器。我尝试了此处提供的解决方案，但出现以下错误：

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

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

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

谢谢， 扬尼斯

Answer 1

我猜正则表达式会为 IPv4 找到 2 个值并将它们存储在 z 值中。

运行它并检查它返回了多少 IP 地址：

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

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

打印（z）

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

您将不得不决定其中之一。在此示例中，我使用第二个 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的开源版本轻松上传