tesselle coverage - 75.68%

Files
Source

.core <- c("dimensio", "isopleuros", "kairos", "nexus", "tabula")

is_attached <- function(x) {
  paste0("package:", x) %in% search()
}

tesselle_unloaded <- function() {
  .core[!is_attached(.core)]
}

tesselle_load <- function(x) {
  loc <- if (x %in% loadedNamespaces()) dirname(getNamespaceInfo(x, "path"))
  do.call("library", list(x, lib.loc = loc, character.only = TRUE))
}

tesselle_attach <- function() {
  to_load <- tesselle_unloaded()
  if (length(to_load) == 0)
    return(invisible())

  packageStartupMessage(message_header(tr_("Attaching packages")))
  suppressPackageStartupMessages(lapply(X = to_load, FUN = tesselle_load))
  packageStartupMessage(message_packages(to_load))

  invisible(to_load)
}

#' @details
#'  \tabular{ll}{
#'   **Version** \tab 1.7.0 \cr
#'   **License** \tab GPL-3 \cr
#'   **CRAN DOI** \tab \doi{10.32614/CRAN.package.tesselle} \cr
#'   **Zenodo DOI** \tab \doi{10.5281/zenodo.6500491} \cr
#'  }
#'
#'  Archéosciences Bordeaux (UMR 6034)\cr
#'  Maison de l'Archéologie\cr
#'  Université Bordeaux Montaigne\cr
#'  33607 Pessac cedex\cr
#'  France
#'
#' @name tesselle-package
#' @aliases tesselle
#' @docType package
#' @keywords internal
"_PACKAGE"

# jarl-ignore unused_function: suppress R CMD check note "All declared Imports should be used."
unused <- function() {
  ananke::c14_calibrate
  dimensio::ca
  folio::arnold1949
  isopleuros::ternary_plot
  kairos::mcd
  khroma::color
  nexus::as_composition
  tabula::heterogeneity
}

## https://michaelchirico.github.io/potools/articles/developers.html
tr_ <- function(...) {
  enc2utf8(gettext(paste0(...), domain = "R-tesselle"))
}

message_header <- function(right) {

  left <- sprintf("tesselle %s", version_text("tesselle"))

  n_right <- nchar(right)
  n_left <- nchar(left)

  if (n_right > 0) {
    right <- sprintf(" %s ", right)
    n_right <- n_right + 2
  }
  if (n_left > 0) {
    left <- sprintf(" %s ", left)
    n_left <- n_left + 2
  }

  dash <- rep("-", getOption("width") - 6 - n_right - n_left)
  rule <- paste0(dash, collapse = "")

  sprintf("---%s%s%s---", right, rule, left)
}
message_packages <- function(x) {
  versions <- vapply(X = x, FUN = version_text, FUN.VALUE = character(1))
  info <- sprintf("* %-12s%s", x, versions)
  paste0(info, collapse = "\n")
}
version_text <- function(x) {
  version <- unclass(utils::packageVersion(x))[[1]]
  paste0(as.character(version), collapse = ".")
}

1		.core <- c("dimensio", "isopleuros", "kairos", "nexus", "tabula")
2
3		is_attached <- function(x) {
4	2x	paste0("package:", x) %in% search()
5		}
6
7		tesselle_unloaded <- function() {
8	1x	.core[!is_attached(.core)]
9		}
10
11		tesselle_load <- function(x) {
12	5x	loc <- if (x %in% loadedNamespaces()) dirname(getNamespaceInfo(x, "path"))
13	5x	do.call("library", list(x, lib.loc = loc, character.only = TRUE))
14		}
15
16		tesselle_attach <- function() {
17	1x	to_load <- tesselle_unloaded()
18	1x	if (length(to_load) == 0)
19	!	return(invisible())
20
21	1x	packageStartupMessage(message_header(tr_("Attaching packages")))
22	1x	suppressPackageStartupMessages(lapply(X = to_load, FUN = tesselle_load))
23	1x	packageStartupMessage(message_packages(to_load))
24
25	1x	invisible(to_load)
26		}

1		## https://michaelchirico.github.io/potools/articles/developers.html
2		tr_ <- function(...) {
3	1x	enc2utf8(gettext(paste0(...), domain = "R-tesselle"))
4		}
5
6		message_header <- function(right) {
7
8	1x	left <- sprintf("tesselle %s", version_text("tesselle"))
9
10	1x	n_right <- nchar(right)
11	1x	n_left <- nchar(left)
12
13	1x	if (n_right > 0) {
14	1x	right <- sprintf(" %s ", right)
15	1x	n_right <- n_right + 2
16		}
17	1x	if (n_left > 0) {
18	1x	left <- sprintf(" %s ", left)
19	1x	n_left <- n_left + 2
20		}
21
22	1x	dash <- rep("-", getOption("width") - 6 - n_right - n_left)
23	1x	rule <- paste0(dash, collapse = "")
24
25	1x	sprintf("---%s%s%s---", right, rule, left)
26		}
27		message_packages <- function(x) {
28	1x	versions <- vapply(X = x, FUN = version_text, FUN.VALUE = character(1))
29	1x	info <- sprintf("* %-12s%s", x, versions)
30	1x	paste0(info, collapse = "\n")
31		}
32		version_text <- function(x) {
33	6x	version <- unclass(utils::packageVersion(x))[[1]]
34	6x	paste0(as.character(version), collapse = ".")
35		}

1		#' @details
2		#' \tabular{ll}{
3		#' Version \tab 1.7.0 \cr
4		#' License \tab GPL-3 \cr
5		#' CRAN DOI \tab \doi{10.32614/CRAN.package.tesselle} \cr
6		#' Zenodo DOI \tab \doi{10.5281/zenodo.6500491} \cr
7		#' }
8		#'
9		#' Archéosciences Bordeaux (UMR 6034)\cr
10		#' Maison de l'Archéologie\cr
11		#' Université Bordeaux Montaigne\cr
12		#' 33607 Pessac cedex\cr
13		#' France
14		#'
15		#' @name tesselle-package
16		#' @aliases tesselle
17		#' @docType package
18		#' @keywords internal
19		"_PACKAGE"
20
21		# jarl-ignore unused_function: suppress R CMD check note "All declared Imports should be used."
22		unused <- function() {
23	!	ananke::c14_calibrate
24	!	dimensio::ca
25	!	folio::arnold1949
26	!	isopleuros::ternary_plot
27	!	kairos::mcd
28	!	khroma::color
29	!	nexus::as_composition
30	!	tabula::heterogeneity
31		}