fix check errors

DESCRIPTION

@@ -26,7 +26,6 @@ Imports:
  ggplot2,
  tibble,
  purrr,
- geozoo,
  tourr,
  stringr,
  ggrepel,

R/draw.R

@@ -221,7 +221,8 @@ add_interp <- function(dt, interp_size = 1.5, interp_alpha = NULL,
 #' @family draw functions
 #' @export
 add_interrupt <- function(dt, interrupt_size = 0.5, interrupt_alpha = NULL,
- interrupt_color = NULL, interrupt_group = NULL, interrupt_linetype = "dashed", ...) {
+ interrupt_color = NULL, interrupt_group = NULL,
+ interrupt_linetype = "dashed", ...) {
  ggplot2::geom_path(
  data = dt,
  ggplot2::aes(

R/explore-space-pca.R

@@ -65,11 +65,10 @@ explore_space_end <- function(dt, group = NULL, pca = TRUE, ...) {
 #' @export
 explore_space_pca <- function(dt, details = FALSE, pca = TRUE, group = NULL,
  color = NULL, facet = NULL, ..., animate = FALSE) {
-
  if (rlang::quo_is_null(dplyr::enquo(color))) color <- dplyr::enexpr(group)
 
  facet <- rlang::enquo(facet)
- if (!rlang::quo_is_missing(facet)) group <- facet
+ if (rlang::quo_is_missing(facet)) group <- facet else group <- dplyr::enexpr(group)
 
  if (pca) dt <- compute_pca(dt, group = {{ group }}, ...) %>% purrr::pluck("aug")
 
@@ -95,12 +94,14 @@ explore_space_pca <- function(dt, details = FALSE, pca = TRUE, group = NULL,
  # anchor points and last interpolation points
  p <- p +
  add_anchor(dt = get_anchor(dt), anchor_color = {{ color }}, ...) +
- add_interp_last(dt = get_interp_last(dt, group = {{ group }}), interp_last_color = {{ color }}, ...) +
+ add_interp_last(dt = get_interp_last(dt, group = {{ group }}),
+ interp_last_color = {{ color }}, ...) +
  # add annotation
  add_interrupt(
  dt = get_interrupt(dt, group = {{ group }}),
- interrupt_color = {{ color }}, interrupt_group = interaction(.data[["tries"]], {{ group }}), ...
- )
+ interrupt_color = {{ color }},
+ interrupt_group = interaction(.data[["tries"]], {{group}}),
+ ...)
 
  # search points
  p <- p +

R/get.R

@@ -80,7 +80,6 @@ get_best <- function(dt, group = NULL) {
  }
 
  res <- dt %>%
- dplyr::filter(grepl("search", dt[["method"]])) %>%
  dplyr::group_by({{group}}) %>%
  dplyr::filter(.data$index_val == max(.data$index_val, na.rm = TRUE)) %>%
  dplyr::distinct(.data$index_val, .keep_all = TRUE)
@@ -108,7 +107,7 @@ get_interp <- function(dt, group = NULL) {
  }
 
  dt %>%
- dplyr::filter(grepl("search", dt[["method"]])) %>%
+ #dplyr::filter(grepl("search", dt[["method"]])) %>%
  dplyr::group_by({{ group }}) %>%
  dplyr::mutate(id = dplyr::row_number()) %>%
  dplyr::ungroup()

R/plot-projection.R

@@ -15,9 +15,9 @@ plot_projection <- function(dt, data, cols = NULL){
  d <- ncol(proj_df) - 1 - length(cols)
 
  if (d == 2){
- p <-  proj_df |>
+ p <- proj_df |>
  ggplot2::ggplot() +
- ggplot2::geom_point(ggplot2::aes(x = V1, y = V2))
+ ggplot2::geom_point(ggplot2::aes(x = V1, y = V2), size = 0.5)
  } else if (d == 1) {
  p <- proj_df |>
  ggplot2::ggplot() +