如何在RShiny应用程序中使用自定义字体

Question

我想在我的Rshiny应用程序中加入自定义字体。我预感代码将以标签$ style出现，但是实际代码中没有包含此代码。

示例代码：

ui <- fluidPage(
        tags$style(  ),
        column(12,
                dataTableOutput("testtab")
              ) # close column
) #close fluidpage

server <- function(input, output, session) {
  output$testtab <- 
        DT::renderDataTable({
                               tab <- data.frame(a = 1:10, b = 11:20, c = 21:30)
                               dat.tab <- datatable(tab) %>% formatPercentage('a', 0) %>% 
                                                          formatCurrency(1:ncol(tab), '$')
                              return(dat.tab)
                            }) # close renderDataTable
} # close server

shinyApp(ui=ui, server=server)

例如，我想说我想在网络上使用任何自定义字体。

Answer 1

这应该有所帮助。

首先，您需要从http://www.fontspace.com/gunarta/surabanglus下载字体并通过单击带有ttf扩展名的文件并单击安装来安装它。这里我添加了标签来控制默认的正文字体，以及使用＆＃34; id标签的标签＃34;控制特定控件中的字体和背景颜色。

使用单独的CSS文件等还有其他方法可以做到这一点。但这很快捷，而且不会太脏。

library(shiny)
library(dplyr)
library(DT)

ui <- fluidPage(
  tags$style(HTML('body {font-family:"Times New Roman",Georgia,Serif; background-color:orange}')),
  tags$style(HTML('#testtab {font-family:"surabanglus",Georgia,Serif; background-color:lightblue}')),
  tags$style(HTML('#hello2 {font-family:"Courier",Georgia,Serif; background-color:pink}')),
  column(12,
         dataTableOutput("testtab"),
         actionButton("hello1","Hello There (uses font inherited from body)"),
         actionButton("hello2","Hello There again (uses Courier)")

  ) # close column,
) #close fluidpage

server <- function(input, output, session) {
  output$testtab <- DT::renderDataTable({
    tab <- data.frame(a = 1:10, b = 11:20, c = 21:30)
    dat.tab <- datatable(tab) %>% formatPercentage('a', 0) %>% 
      formatCurrency(1:ncol(tab), '$')
    return(dat.tab)
  }) # close renderDataTable
} # close server

shinyApp(ui=ui, server=server)

产生这个：