R shiny - 如何将带有参数的请求 url 发送到 R shiny 并仅获得数据响应？

Question

我有一个 Shiny 的应用程序(使用 Shiny 的仪表板)。我试图在 url 上传递参数，使用这些参数生成一些数据，然后将其返回给调用应用程序。我把它放在我的服务器中:

  observe({
    #all url params come in via the 'url_search' variable.
    query <- parseQueryString(session$clientData$url_search)
    action <- query[['action']]
    if (!is.null(action)) {
      #handle all supported request here
      if(action == 'blah') {
        #... do somework here to create my dataframe
        shiny:::httpResponse(status=200, content_type="text/html; charset=UTF-8", mydataframe)
      } else {
        #... ignore unrecognized request
      }     
    }
  })

这有效，但不是以预期的方式:

请求被正确处理，但首先发生的是整个 Shiny 的应用程序被渲染。然后，稍后，我看到一个“POST”请求，将我的原始 url 作为引荐来源网址，并将所需数据作为 JSON 数据发布，但我不知道它去了哪里。

我需要什么才能将我的 url(带参数)发送到我 Shiny 的应用程序，然后让它绕过它通常的交互模式并立即返回原始 json 数据而不渲染 html？是因为我是通过浏览器发出请求的吗？我应该在 R 中以编程方式发出相同的 url 请求吗？

更新:我尝试在我的网址上使用 fromJSON('...') 也不起作用。我得到:

Error in fromJSON(content, handler, default.size, depth, allowComments,  : 
  invalid JSON input

Answer 1

我认为仅使用 Shiny 无法做到这一点。但是，有一些选项可以让 R 像 API 一样运行并返回 JSON 响应。请参阅:http://plumber.trestletech.com/