R/addins.R

In Gedevan-Aleksizde/fontregisterer: Cross-platform Auto Font Registerer For R Graphics

ui <- miniUI::miniPage(
  shiny::tags$head(shiny::includeCSS(system.file("app/styles.css", package = "fontregisterer"), id = "fallbackfont")),
  miniUI::gadgetTitleBar("Search Your Favorite Fonts", left = NULL),
  miniUI::miniContentPanel(
    DT::dataTableOutput("fonts")
  )
)

server <- function(input, output, session) {
  family = sort(unique(systemfonts::system_fonts()$family))

  d <- data.frame(
    family = family, text = readLines(system.file("app/sampletext.txt", package = "fontregisterer"), encoding = "UTF-8")
  )
  d <- DT::datatable(
    d,
    rownames = F
  )
  d <- DT::formatStyle(
    d,
    "text",
    valueColumns = "family",
    target = "cell",
    fontFamily = DT::styleEqual(family,  sprintf("%s,Unicode BMP Fallback SIL", family))
  )
  output$fonts <- DT::renderDataTable(d)

  shiny::observeEvent(input$done, {

    shiny::stopApp()
  })
}

font_selector <- function(){
  shiny::addResourcePath('app', system.file("app", package = "fontregisterer"))
  shiny::runGadget(ui, server, viewer = shiny::dialogViewer(dialogName = "Font Selector"))
}