Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Note: found 1 marked UTF-8 string
Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Note: found 1 marked UTF-8 string
Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Running examples in 'helda-Ex.R' failed
The error most likely occurred in:

> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Running examples in ‘helda-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Note: found 1 marked UTF-8 string
Note: found 1 marked UTF-8 string
Running examples in 'helda-Ex.R' failed
The error most likely occurred in:

> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     ▆
  1. ├─helda::kmeans_procedure(...)
  2. │ └─dplyr::between(...)
  3. │   └─vctrs::vec_cast_common(!!!args)
  4. └─vctrs (local) `<fn>`()
  5.   └─vctrs::vec_default_ptype2(...)
  6.     ├─base::withRestarts(...)
  7.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
  8.     │   └─base (local) doWithOneRestart(return(expr), restart)
  9.     └─vctrs::stop_incompatible_type(...)
 10.       └─vctrs:::stop_incompatible(...)
 11.         └─vctrs:::stop_vctrs(...)
 12.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted
Note: found 1 marked UTF-8 string
Note: found 1 marked UTF-8 string
Running examples in 'helda-Ex.R' failed
The error most likely occurred in:

> ### Name: kmeans_procedure
> ### Title: K-means procedure
> ### Aliases: kmeans_procedure
> ### Keywords: cluster kmeans sizes
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> data <- iris %>% select(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
> features <- colnames(data)
> result <- kmeans_procedure(data = data, columns = features, threshold_min = 2, threshold = 10,
+ verbose=FALSE, seed=10)
Error in `between()`:
! Can't combine `x` <table[1d]> and `left` <double>.
Backtrace:
     x
  1. +-helda::kmeans_procedure(...)
  2. | \-dplyr::between(...)
  3. |   \-vctrs::vec_cast_common(!!!args)
  4. \-vctrs (local) `<fn>`()
  5.   \-vctrs::vec_default_ptype2(...)
  6.     +-base::withRestarts(...)
  7.     | \-base (local) withOneRestart(expr, restarts[[1L]])
  8.     |   \-base (local) doWithOneRestart(return(expr), restart)
  9.     \-vctrs::stop_incompatible_type(...)
 10.       \-vctrs:::stop_incompatible(...)
 11.         \-vctrs:::stop_vctrs(...)
 12.           \-rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
Execution halted