Move KSgeneral to Suggests

DESCRIPTION

@@ -23,7 +23,6 @@ Imports:
  assertthat,
  dplyr,
  inbodb,
- KSgeneral,
  lubridate,
  rlang,
  stringr,
@@ -32,6 +31,7 @@ Imports:
 Suggests:
  DBI,
  knitr,
+ KSgeneral,
  purrr,
  rmarkdown,
  sf,
@@ -41,5 +41,5 @@ Remotes:
  inbo/inbodb
 LazyData: true
 Encoding: UTF-8
-RoxygenNote: 7.1.1
+RoxygenNote: 7.2.3
 VignetteBuilder: knitr

NAMESPACE

@@ -13,7 +13,6 @@ export(get_locs)
 export(get_xg3)
 export(selectlocs_chem)
 export(selectlocs_xg3)
-importFrom(KSgeneral,disc_ks_test)
 importFrom(assertthat,assert_that)
 importFrom(assertthat,has_args)
 importFrom(assertthat,has_name)

R/eval.R

@@ -354,8 +354,6 @@ qualify_xg3 <- function(data,
 #' @importFrom rlang .data
 #' @importFrom assertthat
 #' assert_that
-#' @importFrom KSgeneral
-#' disc_ks_test
 #' @importFrom stringr
 #' str_detect
 #' @importFrom stats
@@ -382,6 +380,8 @@ eval_xg3_series <- function(data,
  max_gap,
  min_dur) {
 
+ require_pkgs("KSgeneral")
+
  if (missing(xg3_type)) {
  xg3_type <- match.arg(xg3_type)} else {
  assert_that(all(xg3_type %in%
@@ -410,11 +410,13 @@ eval_xg3_series <- function(data,
  ser_rel_nryears = .data$ser_nryears / .data$ser_length,
  ser_firstyear = min(.data$hydroyear),
  ser_lastyear = max(.data$hydroyear),
- ser_pval_uniform = disc_ks_test(.data$hydroyear,
- ecdf(seq(.data$ser_firstyear,
- .data$ser_lastyear)),
- exact = TRUE) %>%
- .$p.value
+ ser_pval_uniform = KSgeneral::disc_ks_test(
+ .data$hydroyear,
+ ecdf(seq(.data$ser_firstyear,
+ .data$ser_lastyear)),
+ exact = TRUE
+ ) %>%
+ .$p.value
  ) %>%
  ungroup
  },
@@ -650,6 +652,8 @@ eval_chem <- function(data,
  type = c("avail", "num", "both"),
  uniformity_test = FALSE) {
 
+ require_pkgs("KSgeneral")
+
  type <- match.arg(type)
 
  assert_that(inherits(data, what = c("tbl_lazy", "data.frame")),
@@ -774,13 +778,15 @@ date, lab_sample_id, chem_variable, value, unit, below_loq."
  df %>%
  summarise(
  nryears = sum(.data$available),
- pval_uniform_totalspan = ifelse(.data$nryears > 0,
- disc_ks_test(.data$year[.data$available],
- ecdf(seq(firstyear,
- lastyear)),
- exact = TRUE) %>%
- .$p.value,
- NA)
+ pval_uniform_totalspan = ifelse(
+ .data$nryears > 0,
+ KSgeneral::disc_ks_test(.data$year[.data$available],
+ ecdf(seq(firstyear,
+ lastyear)),
+ exact = TRUE) %>%
+ .$p.value,
+ NA
+ )
  ) %>%
  select(-.data$nryears) %>%
  ungroup