ShinyApp中的renderPrint选项

我正在ShinyApp中使用

renderPrint

函数来显示计算结果。结果在前面有一个

[1]、[2]

等

有没有办法摆脱它

---

此外，是否可以更改输出的字体？

您可以使用

renderText

而不是

renderPrint

。或者也可能是一种选择

要设置应用程序的样式，有几种方法。你可以读一下。在下面的示例中，我将css直接包含在应用程序中。对于可能是最简单的小修改，对于更复杂的应用程序，我会使用css文件并将其包含在

includeCSS（“www/style.css”）

或

tags$head（tags$style（“www/style.css”）

中

库（闪亮）
谢谢，那真的很有用！我编辑了我的答案，并加入了一些css样式的例子。
library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
                    #renderprint {
                      color: white;
                      background: blue;
                      font-family: 'Times New Roman', Times, serif;
                      font-size: 20px;
                      font-style: italic;
                    }
                    #rendertext {
                      color: blue;
                      background: orange;
                      font-family: 'Times New Roman', Times, serif;
                      font-size: 12px;
                      font-weight: bold;
                    }
                    #rendertext1 {
                      color: red;
                      background: yellow;
                      font-family: Arial, Helvetica, sans-serif;
                      font-size: 19px;
                    }
                    "))
    ),

  verbatimTextOutput("renderprint"),

  verbatimTextOutput("rendertext"),
  textOutput("rendertext1")
)

server <- function(input, output, session) {
  output$renderprint <- renderPrint({
    print("This is a render Print output")
  })  
  output$rendertext <- renderText({
    "This is a render Text output - with verbatimTextOutput"
  })
  output$rendertext1 <- renderText({
    "This is a render Text output - with textOutput"
  })
}

shinyApp(ui, server)