In sample_indices() function, the stop event doesn't pass the correct number of rows

[valentinitnelav]

doubtful_data <- web_matrix_to_df(Safariland) %>% unique()
boot_networklevel(lst = list(s1 = doubtful_data),
                  col_lower = "lower",   # column name for plants
                  col_higher = "higher", # column name for insects
                  index = "nestedness",
                  level = "both",
                  start = 50,
                  step = 1,
                  n_boot = 4,
                  n_cpu = 2)

# Error in sample.int(length(x), size, replace, prob): cannot take a sample larger than the population # when 'replace = FALSE'

# Error in value[[3L]](cond) : 
# Possibly because your `start` value, 50, is bigger than the number of interactions in data, 1130.
# If this is the case, then consider to reduce `start` to maybe 10 % of your interactions.

boot_networklevel(lst = list(s1 = doubtful_data),
                  col_lower = "lower",   # column name for plants
                  col_higher = "higher", # column name for insects
                  index = "nestedness",
                  level = "both",
                  start = 10,
                  step = 50,
                  n_boot = 4,
                  n_cpu = 2)

# Error in cut.default(x = seq_along(x), breaks = n, labels = FALSE): invalid number of intervals

# Error in value[[3L]](cond) : 
# Possibly because your `step` value, 50, is bigger than the number of interactions in data, 1130.
# If this is the case, then consider to reduce `step` to maybe 5-10 % of your interactions.

It should not be 1130 interactions in data, but 39 (nrow(doubtful_data)). Not sure what is happening?