EDITED以上の国のリストを表示するには

-4

EDITED この簡単なthigsをどうやって行うのかお尋ねします。何か（inputId=num）のインターフェイスammountから取得し、国のテーブルを表示するShiny Webアプリケーションを作成したい data$both>num コードを作ったが動作しません。EDITED以上の国のリストを表示するには

library(shiny) 

ui <- fluidPage(


    sliderInput(inputId = 'num',label = 'Countries that...',min = '1',max =189',value = '20',step = '1') 
    tableOutput(outputId = 'liczba') 

) 
    server <- function(input, output) { 


    output$liczba <- renderTable({ 
    data[data$both>input$num,] 
    }) 
} 
    shinyApp(ui=ui, server=server)

出典

2017-01-04 Teiito

なぜあなたはそのように投票していますか？コメントがありません。それは深刻ではない。 Clown fiesta – Teiito

あなたの問題はどこですか？何がうまくいくの？どこが失敗するの？ – RobE

私は何かのインターフェイスを最小限に抑えたWebの光沢のあるアプリケーションテーブルを作成したいと思う（私の場合、1日の平均摂取量はアルコールのグラム）。私はそれをserver.rにどのように適用するのか分かりません。データ$国は国のリストです。データ$男性は1日の摂取量をグラム単位で表したものです – Teiito

コードに基づいた解決策は次のとおりです。実装にはいくつかの小さなエラーがあります。非常に良い例のセットについては、hereをご覧ください。

library(shiny) 
library(DT) 

data <- data.frame(
    country = c("Germany", "Netherlands", "Canada"), 
    male = c(15, 30, 45) 
) 

ui <- fluidPage(

    fluidRow(
    sliderInput(
     inputId = 'num', 
     label = 'Countries that...', 
     min = 1, 
     max = 189, 
     value = 20, 
     step = 1 
    ) 
), 

    fluidRow(
    DT::dataTableOutput("liczba") 
) 

) 

server <- function(input, output) { 

    output$liczba <- DT::renderDataTable(DT::datatable({ 
    result <- subset(
     data, 
     data$male > input$num 
    ) 
    result 
    })) 

} 

shinyApp(ui = ui, server = server)

出典

2017-01-04 14:55:36 nevrome

EDITED以上の国のリストを表示するには

答えて

関連する問題