You need a large dataset for this (not sure which built-in datasets are large enough). The ranger fit should produce progress messages like
Growing trees.. Progress: 16%. Estimated remaining time: 2 minutes, 45 seconds.
Growing trees.. Progress: 42%. Estimated remaining time: 1 minute, 25 seconds.
However, parsnip fit doesn't show progress, even with verbosity=2 setting.
rf_mod <- rand_forest(mode="classification") %>%
set_engine("ranger")
rf_fit <- rf_mod %>%
fit(price ~ ., data=train,
control=control_parsnip(verbosity=2, catch=F))