R/zzz.R

In inventionate/TimeSpaceAnalysis: Statistical tools for time-space analysis

.onLoad <- function(...) {
    if (stringr::str_detect(systemfonts::match_fonts("Fira Sans Condensed")$path, "FiraSansCondensed")) {
        systemfonts::register_variant(
            name = "Fira Sans Condensed Semibold",
            family = "Fira Sans Condensed",
            weight = c("normal", "semibold")
        )
        systemfonts::register_variant(
            name = "Fira Sans Condensed Medium",
            family = "Fira Sans Condensed",
            weight = c("normal", "medium")
        )
    }
}