How to combine spinner and status update?

[ShixiangWang]

I love features in this package. When I used it in my development, I find no good way to combine spinner and status update. Is there a good example of this?

[gaborcsardi]

It took a while, but the dev version now has some good ways. E.g.

f <- function() {
  cli_progress_step("Downloading data", spinner = TRUE)
  for (i in 1:100) { cli_progress_update(); Sys.sleep(2/100) }
  cli_progress_step("Importing data", spinner = TRUE)
  for (i in 1:100) { cli_progress_update(); Sys.sleep(1/100) }
  cli_progress_step("Cleaning data", spinner = TRUE)
  for (i in 1:100) { cli_progress_update(); Sys.sleep(2/100) }
  cli_progress_step("Fitting model", spinner = TRUE)
  for (i in 1:100) { cli_progress_update(); Sys.sleep(3/100) }
}
f()

[ShixiangWang]

Thanks. Love it