Rシャイニーダイナミックリスト変数を複数の行に変換する

Question

データテーブルの列と各列の一意の値の数を出力するサイドバーを作成しようとしています。以下のコードは名前のために働いていますが、ユニークな値については、リスト変数がunlist（）である場合にのみ表示することができます。私は、複数の行にわたるリスト変数を扱うtextOutputまたは同等のものを取得することについて話している記事を見つけることができませんでした。私たちは、-fullコード

library(shiny) 

data(mtcars) 

if (interactive()) { 
    ui <- fluidPage(
    sidebarLayout(
     sidebarPanel(
     fluidRow(
      column(6, checkboxGroupInput("dsnamesGrp","Variable name")), 
      column(6, htmlOutput("dsordsGrp"), inline= FALSE) 
     ) 
    ), 
     mainPanel(
     dataTableOutput('contents')) 
    ) 
) 

    server <- function(input, output, session) { 
    output$contents <- renderDataTable({mtcars}) 
    dsnames <- names(mtcars) 
    cb_options <- list() 
    cb_options[dsnames] <- dsnames 
    updateCheckboxGroupInput(session, "dsnamesGrp", 
          label = "Column name", 
          choices = cb_options, 
          selected = "") 

    output$dsordsGrp <- renderUI({ 
      HTML(paste(lengths(lapply(mtcars, unique)), collapse="<br/>")) 

}) 
    } 
} 

shinyApp(ui, server) 

---

それとも、我々は同じコードを使用している場合list

ord_values <- lengths(lapply(mtcars, unique)) 
output$dsordsGrp <- renderText({ord_values}) 

---

にunique要素にlengthsを使用することができます

library(shiny) 

data(mtcars) 

if (interactive()) { 
    ui <- fluidPage(
    sidebarLayout(
     sidebarPanel(
     fluidRow(
      column(6, checkboxGroupInput("dsnamesGrp","Variable name")), 
      column(6, uiOutput("dsordsGrp"), inline= FALSE) 
     ) 
    ), 
     mainPanel(
     dataTableOutput('contents')) 
    ) 
) 

    server <- function(input, output, session) { 
    output$contents <- renderDataTable({mtcars}) 
    dsnames <- list() 
    dsnames <- names(mtcars) 
    cb_options <- list() 
    cb_options[dsnames] <- dsnames 
    updateCheckboxGroupInput(session, "dsnamesGrp", 
          label = "Column name", 
          choices = cb_options, 
          selected = "") 
    ord_values <- list() 
    ord_values <- lapply(mtcars, function(x)length(unique(x))) 
    output$dsordsGrp <- renderText({unlist(ord_values)}) 
    } 
} 

shinyApp(ui, server) 

Answer 1

a OPでの、代わりのlapply（常にlist出力を返します）デフォルトの引数はsimplify = TRUEで、それとそれがsimplify2array

ord_values <- sapply(mtcars, function(x)length(unique(x))) 
output$dsordsGrp <- renderText({ord_values}) 

EDITを使用しているためvectorを返すsapplyを使用するには：renderUI