From 344f79cf8aa6690c77642d2271318a85412f1101 Mon Sep 17 00:00:00 2001
From: Carlos Camara <Carlos.Camara@warwick.ac.uk>
Date: Tue, 2 Jul 2024 10:21:05 +0100
Subject: [PATCH] Add progress step to CLI

---
 R/boundaries_get.R    | 2 ++
 man/boundaries_get.Rd | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/boundaries_get.R b/R/boundaries_get.R
index 3e54ec9..d92dea5 100644
--- a/R/boundaries_get.R
+++ b/R/boundaries_get.R
@@ -85,5 +85,7 @@ boundaries_get <- function(boundary, year = NULL, detail_level = "BUC") {
 
   spdf <- sf::read_sf(url)
 
+  cli::cli_progress_step("Downloading data", spinner = TRUE)
+
   return(spdf)
 }
diff --git a/man/boundaries_get.Rd b/man/boundaries_get.Rd
index d78310e..efbcb71 100644
--- a/man/boundaries_get.Rd
+++ b/man/boundaries_get.Rd
@@ -4,7 +4,7 @@
 \alias{boundaries_get}
 \title{Retrieve Geographical Boundaries}
 \usage{
-boundaries_get(boundary, year = NULL, detail_level = "BUC")
+boundaries_get()
 }
 \arguments{
 \item{boundary}{a string containing ... Accepted values are: