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

Question

首先，我的问题与

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

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

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

"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 地址 . . . . . . . . . . . : xxx.xxx.x.xxx” IPv4 地址 . 。。。。。。。。。：×××”

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