逐行打印矢量

Question

我正在开发一款Shiny App，想在我的Graphs下打印前三行。

我创建了一个只包含所选数据的反应式df，并用head(df, 3)将其缩短。

DF

    Letter   Number
1     a        1
2     b        2
3     c        3
4     d        4
5     e        5

打印此df，它会显示数据，但格式错误。目前就像这样

c(a, b, c) c(1, 2, 3)

我希望逐行看到我的df。

col1   col 2
 a       1
 b       2
 c       3

你有什么想法实现它吗？我无法相信这很难做到，但我无法找到合适的解决方案。

我只想将其粘贴到verbatimTextOutput :(

Answer 1

以下是您尝试实现的最小代码：

library(shiny)

ui <- fluidPage(
  verbatimTextOutput('text')
)

server <- function(input, output, session) {
  df <- data.frame(Letter = letters[1:5], Number = 1:5 )
  output$text <- renderPrint({
    df
  })
}

shinyApp(ui, server)

使用此代码，您的输出如下：

希望它有所帮助！