seq_len

--address some lintr flags; ref #41
IQSS · Jan 1, 2021 · c6db664 · c6db664
1 parent 4e80180
commit c6db664
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/R/get_file.R b/R/get_file.R
@@ -112,7 +112,7 @@ get_file <-
     # Main function. Call get_file_by_id
     out <- vector("list", length(fileid))
 
-    for (i in 1:length(fileid)) {
+    for (i in seq_len(fileid)) {
       out[[i]] <- get_file_by_id(
         fileid = fileid[i],
         dataset = dataset,

diff --git a/for-developers/developer-tasks.R b/for-developers/developer-tasks.R
@@ -10,6 +10,17 @@ pkgdown::clean_site()
 pkgdown::build_site()
 system("R CMD Rd2pdf --no-preview --force --output=./documentation-peek.pdf ." )
 
+checks_to_exclude <- c(
+  "covr",
+  "lintr_line_length_linter"
+)
+gp <-
+  goodpractice::all_checks() %>%
+  purrr::discard(~(. %in% checks_to_exclude)) %>%
+  goodpractice::gp(checks = .)
+goodpractice::results(gp)
+gp
+
 devtools::run_examples(); #dev.off() #This overwrites the NAMESPACE file too
 # devtools::run_examples(, "redcap_read.Rd")
 test_results_checked <- devtools::test()