default to nthread in gower::gower_topn()

R/smotenc_impl.R

@@ -135,7 +135,7 @@ smotenc_data <- function(data, k, n_samples, smotenc_ids = seq_len(nrow(data)))
   # outputs a matrix, each row is a minority instance and each column is a nearest neighbor
   # k is +1 because the sample is always a nearest neighbor to itself
   suppressWarnings(
-    ids <- t(gower::gower_topn(x = data, y = data, n = k + 1, )$index)
+    ids <- t(gower::gower_topn(x = data, y = data, n = k + 1, nthread = 1)$index)
   )
 
   # shuffles minority indicies and repeats that shuffling until the desired number of samples is reached