逐行打印矢量

Question

我正在开发一个闪亮的应用程序，并希望在我的图表下打印前 3 行。

我创建了一个仅包含所选数据的反应式 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)

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

希望对你有帮助！