闪亮的服务器对浏览器URL有反应，但没有从HTTR中获得

Question

我正在尝试编写一个将接受URL，在一个文件中读取并根据URL中的参数写入另一个文件的Rshiny应用程序。将我的方法基于 r SHINY REST API通信这个答案。

以下是生成应用程序的最小功能代码 - 当我从浏览器等浏览器运行时（例如，刚输入地址 http://127.0.0.1/?outdest = test2 ），它将创建一个文件。但是，如果我尝试使用httr的get呼叫来调用它，则会生成错误

找不到函数“ data_read”

有意义的函数“ data_read”，因为该功能至少是我的理解。

因此，我认为我想做的是将UI读入并解析GET查询 - 然后在服务器端触发一个ReactiveEvent以获取该数据，但是我无法得到它来生成我想要的输出。

有没有办法来处理此操作？还是另一个包裹 - 我应该看水管工吗？

非常感谢 奥达

library(shiny)
library(rjson)
library(callr)
library(httr)


data_read <- function(x) {
    
    json = fromJSON(file = x)
    dat_df <- bind_rows(lapply(json,as.data.frame))
    
}


    
shiny_UI <- function(req) {
  # The `req` object is a Rook environment
  # See https://github.com/jeffreyhorner/Rook#the-environment
  if (identical(req$REQUEST_METHOD, "GET")) {   
    x = data_read("C:/Users/Z0049Y2S/Documents/test.json")
    query_params <- parseQueryString(req$QUERY_STRING)
    #print(query_params)
    if(length(query_params$outDest) ){
        output_Destination = query_params$outDest
        print(output_Destination)
        write.csv("Hello",paste0(output_Destination,".csv"))
    }
    fluidPage(
      h1("Accepting POST requests from Shiny")
    )
  } 
}

shiny_Server <- function(input, output, session) {
    
}

Answer 1

闪亮的应用程序确实设计为通过WebSocket与客户通信。对于处理http请求，您可能需要考虑一种其他方法，例如a plumber API。

这是一个量身定制的例子：

p <- callr::r_bg(
  function() {
    library(plumber)

    pr() |>
      pr_handle("GET", "/", function(outFile) {
        write("Hello", outFile)
      }) |>
      pr_run(port = 9850)
  }
)

httr::GET("http://127.0.0.1:9850?outFile=hello.txt")
readLines("hello.txt")

p$kill()