Html 如何使用url将变量传递给R中的另一个闪亮应用程序?

Html 如何使用url将变量传递给R中的另一个闪亮应用程序?,html,r,shiny-server,Html,R,Shiny Server,我有一个脚本,可以为任何类别类型绘制图形,比如A、B和C,我使用“textinput”输入所需类别。现在我想通过URL将此选定类别传递给另一个脚本。此脚本应获取该值并进行计算。如何将变量作为输入从一个脚本传递到另一个脚本 通过URL发送数据有很多不同的方法 这是一个非常原始的dispatcher应用程序示例,它使用HTTP GET viareadlines()将一些小数据发送到远程URL ,您可以阅读如何在创建receiver应用程序时解析查询字符串中的数据 library(shiny) da

我有一个脚本,可以为任何类别类型绘制图形,比如A、B和C,我使用“textinput”输入所需类别。现在我想通过URL将此选定类别传递给另一个脚本。此脚本应获取该值并进行计算。如何将变量作为输入从一个脚本传递到另一个脚本

通过URL发送数据有很多不同的方法

这是一个非常原始的dispatcher应用程序示例,它使用HTTP GET via
readlines()
将一些小数据发送到远程URL

,您可以阅读如何在创建receiver应用程序时解析查询字符串中的数据

library(shiny)

dataToBeSent <- list(
  "someVariable" = "myValue",
  "anotherVariable" = "anotherValue"
)

ui <- shinyUI(
  titlePanel("Simply sending some data via HTTP GET")
)

server <- shinyServer(function(input, output, session) {
  sendData <- function ( listData, url ){
    print("Server says: Let's pass data to a remote url!")
    url <- paste0( url,"?",paste(paste( names(listData),unname(listData),sep="=" ),collapse="&"))
    readLines(URLencode(url))
  }
  sendData( dataToBeSent, "http://www.example.com/shinyApp/"  )
})

shinyApp(ui = ui, server = server)
库(闪亮)
数据存在