R闪亮的动态列表变量到多行

Question

我正在尝试创建一个侧边栏，用于输出数据表的列以及每列中唯​​一值的数量。下面的代码适用于名称，但是当涉及到唯一值时，如果列表变量是 unlist()ed，我只能显示它。我找不到任何关于获取 textOutput 或等效项来处理跨多行的列表变量的文章。

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

我们可以在unique 元素上使用lengths list

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

---

-完整代码

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)

---

或者，如果我们使用与 OP 中相同的代码，而不是 lapply（总是返回 list 输出）使用 sapply 返回 vector，因为默认参数是 simplify = TRUE 并且它使用simplify2array

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

编辑：将 renderText 更改为 renderUI