R/zzz.R

In deeptime: Plotting Tools for Anyone Working in Deep Time

.onLoad <- function(...) {
  # coord_geo_polar theme elements
  ggplot2::register_theme_elements(
    deeptime.axis.line.r = ggplot2::element_line(),
    deeptime.axis.text.r = ggplot2::element_text(size = 3.5, vjust = -2,
                                                 hjust = NA),
    deeptime.axis.ticks.r = ggplot2::element_line(),
    deeptime.axis.ticks.length.r = grid::unit(1.5, "points"),
    element_tree = list(
      deeptime.axis.line.r = ggplot2::el_def("element_line", "line",
                                             "axis.line"),
      deeptime.axis.text.r = ggplot2::el_def("element_text", "text",
                                             "axis.text"),
      deeptime.axis.ticks.r = ggplot2::el_def("element_line", "line",
                                              "axis.ticks"),
      deeptime.axis.ticks.length.r = ggplot2::el_def("unit",
                                                     "axis.ticks.length")
    )
  )

  options(ggpattern_geometry_funcs = list(geo = grid.pattern_geo))
}