BiocParallel errors about drop HOT 5 CLOSED

ods <- readRDS("output/processed_results/aberrant_expression/v34/outrider/blood/ods_unfitted.Rds")
implementation <- "autoencoder"
register(MulticoreParam(3))

## subset filtered and estimate
ods <- ods[mcols(ods)$passedFilter,] 
ods <- estimateSizeFactors(ods)

## find optimal encoding dimension
a <- 5 
b <- min(ncol(ods), nrow(ods)) /20  # N/3

maxSteps <- 15

Nsteps <- min(maxSteps, b) 

# Do unique in case 2 were repeated
pars_q <- round(exp(seq(log(a),log(b),length.out = Nsteps))) %>% unique
ods <- findEncodingDim(ods, params = pars_q, implementation = implementation)

> ods <- findEncodingDim(ods, params = pars_q, implementation = implementation)
Wed Apr 14 10:46:04 2021: SizeFactor estimation ...
Wed Apr 14 10:46:05 2021: Controlling for confounders ...
Wed Apr 14 10:46:05 2021: Using the autoencoder implementation for controlling.
[1] "Wed Apr 14 10:46:13 2021: Initial PCA loss: 54.7283190258117"
Error: BiocParallel errors
  element index: 1
  first error: L-BFGS-B needs finite values of 'fn'
In addition: Warning message:
stop worker failed:
  attempt to select less than one element in OneIndex