1control_progression <- function(type = "shutdown", ...) {
2  progression(type = type, ..., class = "control_progression")
3}
4