From 31599933e8ae38ba6237979f3fef083175a15866 Mon Sep 17 00:00:00 2001
From: gongcastro <gongarciacastro@gmail.com>
Date: Wed, 4 Sep 2024 11:13:46 +0200
Subject: [PATCH] Fix vignettes

---
 NAMESPACE             | 80 +++++++++++++++++++++----------------------
 R/logs.R              |  2 +-
 man/bvq_connect.Rd    |  4 ++-
 man/bvq_norms.Rd      | 24 ++++++-------
 man/track_progress.Rd |  2 +-
 5 files changed, 57 insertions(+), 55 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 2f2c362..d70e840 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -21,43 +21,43 @@ export(prop_adj)
 export(track_progress)
 import(dplyr)
 import(rlang)
-importFrom(cli, cli_abort)
-importFrom(cli, cli_alert_success)
-importFrom(cli, cli_alert_warning)
-importFrom(cli, cli_progress_done)
-importFrom(cli, cli_progress_step)
-importFrom(cli, cli_progress_update)
-importFrom(cli, qty)
-importFrom(dplyr, across)
-importFrom(dplyr, case_when)
-importFrom(dplyr, distinct)
-importFrom(dplyr, filter)
-importFrom(dplyr, if_any)
-importFrom(dplyr, mutate)
-importFrom(dplyr, n)
-importFrom(formr, formr_connect)
-importFrom(formr, formr_raw_results)
-importFrom(googlesheets4, gs4_auth)
-importFrom(googlesheets4, gs4_has_token)
-importFrom(googlesheets4, read_sheet)
-importFrom(janitor, make_clean_names)
-importFrom(lifecycle, deprecated)
-importFrom(lubridate, as_date)
-importFrom(lubridate, as_datetime)
-importFrom(lubridate, time_length)
-importFrom(lubridate, today)
-importFrom(magrittr, "%>%")
-importFrom(purrr, map)
-importFrom(purrr, set_names)
-importFrom(readxl, excel_sheets)
-importFrom(readxl, read_xlsx)
-importFrom(rlang, ":=")
-importFrom(rlang, .data)
-importFrom(rlang, as_label)
-importFrom(rlang, as_name)
-importFrom(rlang, enquo)
-importFrom(rlang, enquos)
-importFrom(tibble, tibble)
-importFrom(tidyr, pivot_longer)
-importFrom(tidyr, pivot_wider)
-importFrom(utils, browseURL)
+importFrom(cli,cli_abort)
+importFrom(cli,cli_alert_success)
+importFrom(cli,cli_alert_warning)
+importFrom(cli,cli_progress_done)
+importFrom(cli,cli_progress_step)
+importFrom(cli,cli_progress_update)
+importFrom(cli,qty)
+importFrom(dplyr,across)
+importFrom(dplyr,case_when)
+importFrom(dplyr,distinct)
+importFrom(dplyr,filter)
+importFrom(dplyr,if_any)
+importFrom(dplyr,mutate)
+importFrom(dplyr,n)
+importFrom(formr,formr_connect)
+importFrom(formr,formr_raw_results)
+importFrom(googlesheets4,gs4_auth)
+importFrom(googlesheets4,gs4_has_token)
+importFrom(googlesheets4,read_sheet)
+importFrom(janitor,make_clean_names)
+importFrom(lifecycle,deprecated)
+importFrom(lubridate,as_date)
+importFrom(lubridate,as_datetime)
+importFrom(lubridate,time_length)
+importFrom(lubridate,today)
+importFrom(magrittr,"%>%")
+importFrom(purrr,map)
+importFrom(purrr,set_names)
+importFrom(readxl,excel_sheets)
+importFrom(readxl,read_xlsx)
+importFrom(rlang,":=")
+importFrom(rlang,.data)
+importFrom(rlang,as_label)
+importFrom(rlang,as_name)
+importFrom(rlang,enquo)
+importFrom(rlang,enquos)
+importFrom(tibble,tibble)
+importFrom(tidyr,pivot_longer)
+importFrom(tidyr,pivot_wider)
+importFrom(utils,browseURL)
diff --git a/R/logs.R b/R/logs.R
index 0b3d559..8b56098 100644
--- a/R/logs.R
+++ b/R/logs.R
@@ -114,7 +114,7 @@ bvq_logs <- function(participants = bvq_participants(),
       complete_items = sum(!is.na(response)),
       .by = one_of(grouping_vars)
     ) %>%
-    inner_join(total_items, by = join_by(version, version_list)) 
+    inner_join(total_items, by = join_by(version, version_list)) |>
     left_join(select(participants, -c(date_birth, version, version_list)),
       by = join_by(child_id, time, response_id)
     ) %>%
diff --git a/man/bvq_connect.Rd b/man/bvq_connect.Rd
index 317ebce..0eed57d 100644
--- a/man/bvq_connect.Rd
+++ b/man/bvq_connect.Rd
@@ -23,6 +23,8 @@ password (argument \code{password}) or retrieving it from the global environment
 (\code{FORMR_PWD} in .Renviron)
 }
 \examples{
-\dontrun{bvq_connect()}
+\dontrun{
+bvq_connect()
+}
 
 }
diff --git a/man/bvq_norms.Rd b/man/bvq_norms.Rd
index ac31e1a..20413d7 100644
--- a/man/bvq_norms.Rd
+++ b/man/bvq_norms.Rd
@@ -72,22 +72,22 @@ one-inflation (see function \code{\link[=prop_adj]{prop_adj()}}).
 responses <- bvq_responses()
 
 bvq_norms(
-    participants = participants,
-    responses = responses,
-    item = "cat_casa",
-    age = c(22, 22),
-    lp
+  participants = participants,
+  responses = responses,
+  item = "cat_casa",
+  age = c(22, 22),
+  lp
 )
-    
+
 my_items <- c("cat_gos", "cat_gat")
 
 bvq_norms(
-    participants = participants,
-    responses = responses,
-    item = my_items,
-    te = TRUE,
-    age = c(15, 16)
-)    
+  participants = participants,
+  responses = responses,
+  item = my_items,
+  te = TRUE,
+  age = c(15, 16)
+)
 }
 
 }
diff --git a/man/track_progress.Rd b/man/track_progress.Rd
index 4f775e8..b856051 100644
--- a/man/track_progress.Rd
+++ b/man/track_progress.Rd
@@ -22,7 +22,7 @@ This function prints some informative messages about a participants progress thr
 }
 \examples{
 \dontrun{
-track_progress("1911", participants, verbose=FALSE)
+track_progress("1911", participants, verbose = FALSE)
 }
 
 }