fill out testing

2022-10-16 19:08:06 -04:00
parent 34cc4a5c1a
commit 8b8dd50de3
2 changed files with 8 additions and 1 deletions
@@ -31,6 +31,13 @@ pipeline {

        }
      }
+      stage('testthat'){
+         steps {
+         sh ```
+         R -e 'testthat::test_local(".")'
+         ```
+         }
+      }


      stage('Clean') {
@@ -84,7 +84,7 @@ add_logo <- function(plot, logo, margin_param = NULL) {
 #' @export
 #'
 #' @examples
-#' p1 <- qplot(mpg, wt, data = mtcars)
+#' p1 <- ggplot2::qplot(mpg, wt, data = mtcars)
 #' measure_caption(p1) # Should equal 1 since no caption is required
 measure_caption <- function(gg) {
  if (has_caption(gg)) {