Question

问题是如何使用verbatimTextOutput("printout")扩大打印字体的大小？ UI部分如下：

mainPanel(
   h2("Outcome"),
   verbatimTextOutput("Model"),
   verbatimTextOutput("printout")
)

＆＃34;打印输出＆＃34;这是从服务器生成的：

output$printout <- renderPrint({
   result <- function1111(obs$Y,obs$X,obs$G)
   lapply(result,round,3)
})

其中结果是5个元素的列表。

我正在考虑使用div()，但不知道如何，谢谢！

Answer 1

这可以通过CSS完成。见下面的例子

library(shiny)

ui <- shinyUI(fluidPage(

  titlePanel("Example"),
  verbatimTextOutput("printout"),
  tags$head(tags$style(HTML("
                            #printout {
                              font-size: 20px;
                            }
                            ")))

))

server <- shinyServer(function(input, output, session) {

  output$printout <- renderText("Sample output")

})

shinyApp(ui = ui, server = server)

放大verbatimTextOutput（＆＃34; printout＆＃34;）的字体大小

1 个答案: