如何在 Shiny 中打印长度不均匀的列表

Question

我有一个如下所示的列表。我想打印它，就像它在我闪亮的应用程序中的样子一样。我尝试了 print(unlist(ls)) ，其中 ls 是下面显示的列表，但它只是打印数字。我还尝试了 Hmisc 包中的 print.char.list 但它给出了错误

Error in x[[1]][1, ] : incorrect number of dimensions. 

那么我怎样才能打印出名字呢？提前致谢。

$money
bankaccount       cryin   desperate      feelin      likely      loaded      poppin       build      moment 
       0.73        0.73        0.73        0.73        0.73        0.73        0.73        0.62        0.59 
      spend       spent 
       0.51        0.51 

$matter
becauseit    racest   spanish     found    whites     races 
     0.63      0.63      0.63      0.56      0.56      0.55 

$little
appropriate    carrying       usual 
       0.56        0.56        0.56 

$still
    cloth     codes glamorous     grade 
     0.57      0.57      0.57      0.57 

Answer 1

这个怎么样：

library(shiny)
mylist <- list(letters[1:4], letters[1:5], letters[1:2], letters[1:6])

server <- function(input, output) {

  output$console <- renderPrint({
    print(mylist)
  })

}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(verbatimTextOutput("console"))
  )
))

shinyApp(ui = ui, server = server)

首先，我创建了列表列表的示例（因为您没有提供易于直接读入 R 的正确格式的数据，请考虑下次正确发布数据），然后轻松地将其打印为控制台输出renderPrint()。