verbatimTextOutput（ "printout"）in shinyのフォントサイズを拡大

Question

問題は、印刷されたフォントのサイズをverbatimTextOutput("printout")で拡大する方法ですか？ UI部分は次のようである：

結果は5つの要素のリストである

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

：

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

「プリントアウト」ここでは、サーバから生成されます。

私は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)