Cluster cores not set when more cores than available are requested

[mihaiconstantin]

Somewhere on the else if branch (i.e., see below) we need to set the maximum number of cores that can be used, e.g.,:

# Set the cores.
private$.cores <- private$.allowed_cores

powerly/R/Backend.R

Lines 38 to 43 in d6be4e6

	} else if (cores > private$.allowed_cores) {
	# Warn the user.
	warning(paste0("Argument `cores` cannot be larger than ", private$.allowed_cores, ". Setting to ", private$.allowed_cores, "."))
	# Honor the user request without any constraints.
	} else {