可以为 Rstudio 的 Shiny 代理 Websockets 吗？

Question

Websockets 可以比普通的 HTTP(s) 请求更快，并且浏览器通常可以打开更多的 websocket 连接。

我的浏览器通过 javascript 控制台告诉我，虽然我的闪亮应用程序正常工作并且 apache proxypass 代理正确，但 websockets 不工作：

WebSocket connection to 'wss://www.example.com/shiny/01_hello/__sockjs__/058/v193lng7/websocket' failed: WebSocket is closed before the connection is established.

我已经看到了可以将 Apache 配置为代理 websocket 的不同方式。如：

    ProxyPass /shiny/  ws://127.0.0.1:3838/
    ProxyPass /shiny/ wss://127.0.0.1:3838/
    RedirectMatch ^/shiny$ /shiny/

和：

  RewriteEngine On
  RewriteCond %{REQUEST_URI}  ^/socket.io            [NC]
  RewriteCond %{QUERY_STRING} transport=websocket    [NC]
  RewriteRule /(.*)           ws://localhost:3001/$1 [P,L]

  ProxyPass / http://localhost:3001/
  ProxyPassReverse / http://localhost:3001/

我的问题是，这些中的任何一个都可以与闪亮一起使用吗？

Answer 1

很可能您的 R 文件处理 Websockets 很糟糕。

在你的 java 脚本的 HTML 文件中，你有类似的东西：

var socket = new WebSocket("wss://"+hostlocation, "HelloR")

然后是您根据需要定义的以下函数：

socket.onopen = function() {}
socket.onmessage = function got_packet(msg) {}
socket.onclose = function(){}

在你的 R 代码中你有类似的东西：

w = create_server(webpage=static_text_service(htmldata))
f = function(DATA,WS,...)
{
list(msg,p)= process(data)
websocket_broadcast(toJSON(list(msg=msg, fig=p)),WS$server)
}
set_callback("receive",f,w)
ctmp = tempfile()
itmp = tempfile()
daemonize(w)

其中 htmldata 是您的 html 文件。

然后修改httpd.conf 有：

<VirtualHost *:origin_port>
  ProxyPass /shiny/  ws://127.0.0.1:3838/
  ProxyPassReverse /shiny/  ws://127.0.0.1:3838/
</VirtualHost>

其中origin_port是origin的端口号，ws://127.0.0.1:3838/是主机的地址和端口。

确保您没有遗漏任何这些关键部分。希望对您有所帮助。