опция renderPrint в ShinyApp - PullRequest
Новая
       85

опция renderPrint в ShinyApp

0 голосов
/ 10 июня 2018

Я использую опцию renderPrint в ShinyApp, чтобы получить расчеты.Расчеты производятся с [1], [2] и т. Д.Есть ли способ избавиться от этого?Кроме того, можно ли изменить шрифты на выходе?

1 Ответ

0 голосов
/ 10 июня 2018

Вы можете использовать renderText вместо renderPrint.Или может быть withMathJax() также может быть вариантом?

Для стилизации вашего приложения есть несколько способов сделать это.Вы можете прочитать об этом здесь .Я включаю CSS прямо в приложение в следующем примере.Для небольших адаптаций это, пожалуй, самый простой способ, для более сложных приложений я бы использовал файл css и включил его в includeCSS(). 

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)
...