fill out testing
Gitea Organization/civilyticsR/pipeline/head There was a failure building this commit
Gitea Organization/civilyticsR/pipeline/head There was a failure building this commit
This commit is contained in:
Vendored
+7
@@ -31,6 +31,13 @@ pipeline {
|
|||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
stage('testthat'){
|
||||||
|
steps {
|
||||||
|
sh ```
|
||||||
|
R -e 'testthat::test_local(".")'
|
||||||
|
```
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
stage('Clean') {
|
stage('Clean') {
|
||||||
|
|||||||
@@ -84,7 +84,7 @@ add_logo <- function(plot, logo, margin_param = NULL) {
|
|||||||
#' @export
|
#' @export
|
||||||
#'
|
#'
|
||||||
#' @examples
|
#' @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(p1) # Should equal 1 since no caption is required
|
||||||
measure_caption <- function(gg) {
|
measure_caption <- function(gg) {
|
||||||
if (has_caption(gg)) {
|
if (has_caption(gg)) {
|
||||||
|
|||||||
Reference in New Issue
Block a user