SHINYでHTTP GETデータを表示

Question

私はテーブルを照会することを可能にするTalend DIを使用してRESTful APIを作成したPostgreSQLデータベースを持っています
今私の質問は、ShinyのApiを呼び出してデータを表示する方法ですか？

[{"medical_consultations":{"medical_consultation":[{"id":"1640087","id_consultation":"GFAPAAPA P 834406012009","consultation_date":"07-01-2009","id_center":"APA"},{"id":"1640088","id_consultation":"GFAPAAPA P1079007012010","consultation_date":"08-01-2010","id_center":"APA"},{"id":"1640089","id_consultation":"GFAPAAPA P1098811052007","consultation_date":"12-05-2007","id_center":"APA"}]}}] 

シモンズ：：私は何の問題私のデータベースに直接接続するためにシャイニーに「RPostgreSQL」パッケージを使用してそれをやってを持っていませんが、私は光沢のあるからそれを分離することを好む、それは次のようになり、HTTP GET応答の

例"へのテキストボックスにテキストを設定する例えば

require(shiny) 
require(httr) 

url <- "http://httpbin.org/get?" 

ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(
     textInput('GETargs',"GET string"), 
     actionButton('sendGET','Send') 
    ), 
    mainPanel(
     verbatimTextOutput('GETresponse'), 
     dataTableOutput('table1') 
    ) 
) 
) 

server <- function(input, output, session) { 
    observeEvent(input$sendGET, { 
    getargs <- input$GETargs 

    if(is.null(input$GETargs)) getargs <- "" 

    res    <- GET(sprintf("%s%s",url, getargs)) 
    output$GETresponse <- renderPrint(content(res)) 

    output$table1 <- renderDataTable(as.data.frame(content(res)$args)) 
    }) 
} 

runApp(shinyApp(ui,server)) 

：あなたはAPIを使用している場合は、私のWebサービスを使用して

Answer 1

は、すべてのセットアップは、あなたがこのような何かを行うことができますparam1 = value1 & param2 = value2 "は、選択したURLにGET要求を送信します。これは、あなたがこれを実装したい方法ではないかもしれませんが、これはあなたにこれがどのように行われるかについてのいくつかの考えを与えるかもしれません。私は次のように入力して、インスタンスへのアクセス「のparam1」の値の私ができるサンプルクエリ刺さを使用する場合は

：

content(res)$args$param1