如何在闪亮的应用程序中呈现列表

Question

我尝试通过以下链接在闪亮的应用程序中显示列表的方法： How to print lists of lists of uneven length in Shiny，到目前为止没有任何显示。

ui <- fluidPage(
      verbatimTextOutput("res")
    )
    server <- function(input, output, session) {
      output$res<-renderPrint({
        x=list(nam=('d','h','k','m'),num=(3,2,8,9))
        a=tapply(x[,1],x[,2],summary)

      })}
    shinyApp(ui = ui, server = server)