テーブル出力を追加する
Shiny アプリに出力を追加するには、次の手順が必要です。
- 出力（プロット、テーブル、テキストなど）を作成する。
- 適切な
render___関数で出力オブジェクトをレンダーする。 - レンダリングしたオブジェクトを
output$xに代入する。 - 適切な
___Output関数で UI に出力を追加する。
この演習では、先ほど作成したベビーネーム探索アプリにテーブル出力を追加します。render___ 関数内のコードは必ず波括弧で囲む必要がある点を忘れないでください（例：renderPlot({...})）。
この演習はコースの一部です
Rで作るShiny Webアプリケーション
演習の手順
- 性別と年ごとの人気トップ10の名前を表示する、
table_top_10_namesという名前のテーブル出力を作成します。表示用のデータフレームは、top_10_names()関数で生成できます。 - UI にテーブルを表示します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
ui <- fluidPage(
titlePanel("What's in a Name?"),
# Add select input named "sex" to choose between "M" and "F"
selectInput('sex', 'Select Sex', choices = c("F", "M")),
# Add slider input named "year" to select year between 1900 and 2010
sliderInput('year', 'Select Year', min = 1900, max = 2010, value = 1900)
# CODE BELOW: Add table output named "table_top_10_names"
)
server <- function(input, output, session){
# Function to create a data frame of top 10 names by sex and year
top_10_names <- function(){
babynames %>%
filter(sex == input$sex) %>%
filter(year == input$year) %>%
slice_max(prop, n = 10)
}
# CODE BELOW: Render a table output named "table_top_10_names"
}
shinyApp(ui = ui, server = server)