RShiny Appでカスタムフォントを使用する方法

Question

Rshiny Appにカスタムフォントを組み込みたいと思います。私はコードがタグ$スタイルで行こうとしているが、これを含める実際のコードを持っていないことがあります。

例コード：

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という拡張子のファイルをクリックしてインストールしてインストールする必要があります。ここでは、デフォルトのボディフォントを制御するためのタグと、「idタグ」を使用して特定のコントロールや背景色のフォントを制御するタグを追加しました。

別の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) 

降伏この：