So verwenden Sie eine benutzerdefinierte Schriftart in einer RShiny App

Question

Ich möchte eine benutzerdefinierte Schriftart in meine Rshiny App integrieren. Ich habe eine Ahnung, der Code würde in Tags $ Stil gehen, aber nicht den eigentlichen Code, um dies zu umfassen.

Beispielcode:

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) 

Zum Beispiel willen, lassen Sie uns sagen, ich will da draußen jede benutzerdefinierte Schriftart verwenden, auf dem Netz.

Answer 1

Dies sollte helfen.

Zuerst müssen Sie die Schriftart von http://www.fontspace.com/gunarta/surabanglus herunterladen und installieren, indem Sie auf die Datei mit der ttf Erweiterung klicken und auf Installieren klicken. Hier habe ich Tags hinzugefügt, um die Standardschriftart zu steuern, und Tags, die das "ID-Tag" verwenden, um die Schriftarten in bestimmten Steuerelementen und den Hintergrundfarben zu steuern.

Es gibt andere Möglichkeiten, dies mit separaten CSS-Dateien usw. zu tun. Aber das ist schnell und einfach und nicht zu schmutzig.

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) 

Nachgeben dies: