get_sim crashes in case of missing mod_s***.sti file

[sbuis]

Can be reproduced using the following code :

javastics_path <- SET_YOUR_PATH_TO_JAVASTICS
stics_version <- "V10.0"

# Download and prepare data
data_dir <- file.path(SticsRFiles::download_data(example_dirs = "study_case_1", stics_version = stics_version))
stics_inputs_path <- file.path(data_dir, "TxtFiles")
dir.create(stics_inputs_path, showWarnings = FALSE)
javastics_workspace_path <- file.path(data_dir, "XmlFiles")
SticsRFiles::gen_usms_xml2txt(
  javastics = javastics_path, workspace = javastics_workspace_path,
  out_dir = stics_inputs_path, verbose = TRUE
)

situation <- c("bo96iN+")
file.list <- list.files(file.path(stics_inputs_path, situation), pattern = "^mod_.*\\.sti$", full.names = TRUE)
file.remove(file.list)

SticsRFiles::get_sim(file.path(stics_inputs_path, situation))

Gives the following error message :

Erreur dans paste0("Not any ", full_type, " file detected neither in workspace ", :
objet 'workspace_sub' introuvable

traceback()
8: paste0("Not any ", full_type, " file detected neither in workspace ",
workspace_sub, "nor in sub-dir(s)", workspace_files_sub) at get_file.R#202
7: warning(paste0("Not any ", full_type, " file detected neither in workspace ",
workspace_sub, "nor in sub-dir(s)", workspace_files_sub)) at get_file.R#202
6: get_file_(workspace = x, usm_name = usm_name, usms_filepath = usms_path,
var_list = var_list, dates_list = dates_list, javastics_path = javastics_path,
verbose = verbose, type = type) at get_file.R#64
5: FUN(X[[i]], ...)
4: lapply(workspace, function(x) {
get_file_(workspace = x, usm_name = usm_name, usms_filepath = usms_path,
var_list = var_list, dates_list = dates_list, javastics_path = javastics_path,
verbose = verbose, type = type)
}) at get_file.R#63
3: unlist(lapply(workspace, function(x) {
get_file_(workspace = x, usm_name = usm_name, usms_filepath = usms_path,
var_list = var_list, dates_list = dates_list, javastics_path = javastics_path,
verbose = verbose, type = type)
}), recursive = FALSE) at get_file.R#63
2: get_file(workspace, usm_name, var_list, dates_list, usms_filepath,
javastics_path, verbose, "sim") at get_sim.R#152
1: SticsRFiles::get_sim(file.path(stics_inputs_path, situation))