[R/helper_funs.R:338:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/helper_funs.R#L338) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if ((do_gc >= 1) & (do_gc < 2)) {
      ^
```
[R/sperrorest_error.R:3:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_error.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate a variety of accuracy measures from observations and predictions
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_error.R:95:18:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_error.R#L95) *warning:* **no visible global function definition for ‘prediction’**
```r
      predobj <- prediction(pred, obs)
                 ^~~~~~~~~~
```
[R/sperrorest_error.R:96:16:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_error.R#L96) *warning:* **no visible global function definition for ‘performance’**
```r
      auroc <- performance(predobj, measure = "auc")@y.values[[1]]
               ^~~~~~~~~~~
```
[R/sperrorest_error.R:146:28:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_error.R#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                mse = mean((obs - pred) ^ 2), mad = mad(obs - pred),
                           ^
```
[R/sperrorest_misc.R:470:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_misc.R#L470) *warning:* **no visible global function definition for ‘validate.resampling’**
```r
  stopifnot(validate.resampling(object))
            ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_misc.R:575:27:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_misc.R#L575) *warning:* **no visible binding for global variable ‘validate.resampling’**
```r
  valid <- sapply(object, validate.resampling)
                          ^~~~~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:68:20:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L68) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      resampler <- as.resampling(resampler)
                   ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:73:19:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L73) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:150:15:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L150) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    repres <- as.represampling(repres)
              ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:198:12:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L198) *warning:* **no visible global function definition for ‘as.resampling’**
```r
    fac <- as.resampling(fac)
           ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:205:17:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L205) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    represmp <- as.represampling(represmp)
                ^~~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:459:40:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L459) *style:* **Put spaces around all infix operators.**
```r
      r <- phi[as.character(cnt)] * 180/pi
                                      ~^~
```
[R/sperrorest_resampling.R:472:31:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L472) *style:* **Put spaces around all infix operators.**
```r
      x_delta <- diff(x_range)/nsplit[1]
                             ~^~
```
[R/sperrorest_resampling.R:473:31:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L473) *style:* **Put spaces around all infix operators.**
```r
      y_delta <- diff(y_range)/nsplit[2]
                             ~^~
```
[R/sperrorest_resampling.R:494:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L494) *style:* **Variable or function name should be snake_case.**
```r
      x.split <- seq(x_range[1], x_range[2], length = my_nsplit[1] + 1)
      ^~~~~~~
```
[R/sperrorest_resampling.R:495:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L495) *style:* **Variable or function name should be snake_case.**
```r
      y.split <- seq(y_range[1], y_range[2], length = my_nsplit[2] + 1)
      ^~~~~~~
```
[R/sperrorest_resampling.R:497:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L497) *style:* **Variable or function name should be snake_case.**
```r
      x.split <- seq(x_range[1], x_range[2] + x_delta, by = x_delta)
      ^~~~~~~
```
[R/sperrorest_resampling.R:498:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L498) *style:* **Variable or function name should be snake_case.**
```r
      y.split <- seq(y_range[1], y_range[2] + y_delta, by = y_delta)
      ^~~~~~~
```
[R/sperrorest_resampling.R:520:47:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L520) *warning:* **no visible global function definition for ‘as.tilename’**
```r
          tile[sel_x & sel_y] <- as.character(as.tilename(c(ix, iy)))
                                              ^~~~~~~~~~~
```
[R/sperrorest_resampling.R:527:16:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L527) *warning:* **no visible global function definition for ‘get_small_tiles’**
```r
    s_tiles <- get_small_tiles(tile, min_n = min_n, min_frac = min_frac)
               ^~~~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:559:15:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L559) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:652:18:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L652) *style:* **Put spaces around all infix operators.**
```r
      p <- x$size/sum(x$size)
                ~^~
```
[R/sperrorest_resampling.R:653:23:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L653) *style:* **Put spaces around all infix operators.**
```r
      return(1 - sum(p^2))
                     ~^~
```
[R/sperrorest_resampling.R:666:15:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L666) *warning:* **no visible global function definition for ‘as.resampling’**
```r
      tile <- as.resampling(tile)
              ^~~~~~~~~~~~~
```
[R/sperrorest_resampling.R:671:19:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest_resampling.R#L671) *warning:* **no visible global function definition for ‘as.represampling’**
```r
    resampling <- as.represampling(resampling)
                  ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:551:9:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L551) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
        plan(par_args$par_option, workers = par_args$par_units)
        ^~~~
```
[R/sperrorest.R:554:9:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L554) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
        plan(par_args$par_option, workers = par_args$par_units)
        ^~~~
```
[R/sperrorest.R:599:5:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L599) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
    registerDoFuture()
    ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:608:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L608) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:608:25:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L608) *warning:* **no visible global function definition for ‘availableCores’**
```r
      cl <- makeCluster(availableCores(), outfile = out_progress, ...)
                        ^~~~~~~~~~~~~~
```
[R/sperrorest.R:609:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L609) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:609:12:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L609) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:622:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L622) *warning:* **no visible global function definition for ‘makeCluster’**
```r
      cl <- makeCluster(par_args$par_units, outfile = out_progress, ...)
            ^~~~~~~~~~~
```
[R/sperrorest.R:623:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L623) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(cluster, workers = cl)
      ^~~~
```
[R/sperrorest.R:623:12:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L623) *warning:* **no visible binding for global variable ‘cluster’**
```r
      plan(cluster, workers = cl)
           ^~~~~~~
```
[R/sperrorest.R:634:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L634) *warning:* **no visible global function definition for ‘registerDoFuture’**
```r
      registerDoFuture()
      ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:635:7:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L635) *warning:* **no visible global function definition for ‘plan’, Did you mean 'lag'?**
```r
      plan(sequential)
      ^~~~
```
[R/sperrorest.R:635:12:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L635) *warning:* **no visible binding for global variable ‘sequential’**
```r
      plan(sequential)
           ^~~~~~~~~~
```
[R/sperrorest.R:646:47:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L646) *warning:* **local variable ‘pooled_pred_train’ assigned but may not be used**
```r
                          pooled_obs_train <- pooled_pred_train <- c()
                                              ^~~~~~~~~~~~~~~~~
```
[R/sperrorest.R:647:46:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L647) *warning:* **local variable ‘pooled_pred_test’ assigned but may not be used**
```r
                          pooled_obs_test <- pooled_pred_test <- c()
                                             ^~~~~~~~~~~~~~~~
```
[R/sperrorest.R:651:25:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L651) *warning:* **local variable ‘current_impo’ assigned but may not be used**
```r
                        current_impo <- resamp[[i]]
                        ^~~~~~~~~~~~
```
[R/sperrorest.R:656:42:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L656) *warning:* **no visible global function definition for ‘map’, Did you mean 'mad'?**
```r
                          current_res <- map(resamp[[i]], unclass)
                                         ^~~
```
[R/sperrorest.R:780:17:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/sperrorest.R#L780) *warning:* **no visible global function definition for ‘transfer_parallel_output’**
```r
  my_res_mod <- transfer_parallel_output(my_res, res, impo, pooled_error)
                ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:52:37:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L52) *style:* **Variable or function name should be snake_case.**
```r
                                    na.rm = TRUE, ...) {
                                    ^~~~~
```
[R/summary_functions.R:56:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L56) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) t(sapply(x, function(y) data.frame(train = y$train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:57:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
        test = y$test, distance = ifelse(any(names(y) == "distance"), y$distance,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:71:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
      err <- data.frame(mean = apply(err, 2, function(y) mean(unlist(y), na.rm = na.rm)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:72:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L72) *style:* **Lines should not be more than 80 characters.**
```r
        sd = apply(err, 2, function(y) sd(unlist(y), na.rm = na.rm)), median = apply(err,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:78:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) t(sapply(x, function(y) data.frame(train = y$train,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:79:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L79) *style:* **Lines should not be more than 80 characters.**
```r
        test = y$test, distance = ifelse(any(names(y) == "distance"), y$distance,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:84:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
      err <- lapply(err, function(x) apply(x, 2, function(y) weighted.mean(unlist(y),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:91:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L91) *style:* **Lines should not be more than 80 characters.**
```r
      err <- data.frame(mean = sapply(err, mean), sd = sapply(err, sd), median = sapply(err,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:103:59:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L103) *style:* **Variable or function name should be snake_case.**
```r
summary.sperrorestreperror <- function(object, level = 0, na.rm = TRUE, ...) {
                                                          ^~~~~
```
[R/summary_functions.R:130:61:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L130) *style:* **Variable or function name should be snake_case.**
```r
summary.sperrorestimportance <- function(object, level = 0, na.rm = TRUE,
                                                            ^~~~~
```
[R/summary_functions.R:133:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L133) *style:* **Lines should not be more than 80 characters.**
```r
  arrdimnames <- list(names(object), names(object[[1]]), rownames(object[[1]][[1]]),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:146:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
      arr <- data.frame(mean = apply(arr, c(2, 3), mean, na.rm = na.rm), sd = apply(arr,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:149:12:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L149) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    } else { # when does this happen?
           ^
```
[R/summary_functions.R:151:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L151) *style:* **Lines should not be more than 80 characters.**
```r
      arr <- data.frame(mean = apply(arr, 2, mean, na.rm = na.rm), sd = apply(arr, # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:152:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L152) *style:* **Lines should not be more than 80 characters.**
```r
        2, sd, na.rm = na.rm), median = apply(arr, 2, median, na.rm = na.rm), # nocov
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/summary_functions.R:272:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L272) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:273:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L273) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/summary_functions.R:274:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/R/summary_functions.R#L274) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-helper-funs.R:18:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:19:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
                              formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:20:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
                              model_args = list(family = "binomial"), do_try = FALSE, model_fun = glm,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:21:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L21) *style:* **Lines should not be more than 80 characters.**
```r
                              error_fold = TRUE, error_rep = TRUE, imp_permutations = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:22:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L22) *style:* **Lines should not be more than 80 characters.**
```r
                              imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:23:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = TRUE, current_res = current_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:24:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
                              pred.args = list(type = "response"), response = "slides", par_cl = 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:25:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled_obs_train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:44:11:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-helper-funs.R:44:22:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-helper-funs.R:44:39:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-helper-funs.R:44:50:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L44) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-helper-funs.R:50:63:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L50) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-helper-funs.R:58:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L58) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = maipo, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:60:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
                              do_try = FALSE, model_fun = lda, pred_fun = lda_predfun,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:61:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L61) *style:* **Lines should not be more than 80 characters.**
```r
                              error_fold = TRUE, error_rep = TRUE, pred.args = list(fac = "field"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:62:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = FALSE, current_res = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:64:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled_obs_train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:80:71:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L80) *style:* **Commas should always have a space after.**
```r
  mypred_rpart <- function(object, newdata) predict(object, newdata)[,2]
                                                                      ^
```
[tests/testthat/test-helper-funs.R:82:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L82) *style:* **Lines should not be more than 80 characters.**
```r
  runfolds_single <- runfolds(j = 1, data = ecuador, current_sample = current_sample,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:83:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
                              formula = slides ~ dem + slope + hcurv + vcurv + log.carea + cslope,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:85:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L85) *style:* **Lines should not be more than 80 characters.**
```r
                              error_fold = TRUE, error_rep = TRUE, imp_permutations = 2, pred_fun = mypred_rpart,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:87:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L87) *style:* **Lines should not be more than 80 characters.**
```r
                              imp.variables = c("dem", "slope", "hcurv", "vcurv", "log.carea", "cslope"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:88:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
                              err_train = TRUE, importance = TRUE, current_res = current_res,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:90:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
                              coords = c("x", "y"), progress = 1, pooled_obs_train = c(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:121:63:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L121) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-helper-funs.R:142:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  imp.one.rep <- readRDS("inst/test-objects/imp.one.rep.rda")
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:165:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L165) *style:* **Variable or function name should be snake_case.**
```r
  imp.one.rep <- readRDS("inst/test-objects/imp.one.rep.rda")
  ^~~~~~~~~~~
```
[tests/testthat/test-helper-funs.R:184:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-helper-funs.R#L184) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-resample.R:10:52:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-resample.R#L10) *style:* **Only use double-quotes.**
```r
                              param = list(strat = 'slides', nstrat = 100))
                                                   ^~~~~~~~
```
[tests/testthat/test-resample.R:12:32:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-resample.R#L12) *style:* **Only use double-quotes.**
```r
  expect_equal(sum(d$slides == 'TRUE'), 100) # == 100
                               ^~~~~~
```
[tests/testthat/test-resample.R:20:55:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-resample.R#L20) *style:* **Only use double-quotes.**
```r
  d <- resample_uniform(ecuador, param = list(strat = 'slides', n = 400))
                                                      ^~~~~~~~
```
[tests/testthat/test-resample.R:28:55:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-resample.R#L28) *style:* **Only use double-quotes.**
```r
  d <- resample_uniform(ecuador, param = list(strat = 'slides', n = 200))
                                                      ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:17:48:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L17) *style:* **Only use double-quotes.**
```r
  parti <- partition_cv_strat(ecuador, strat = 'slides', nfold = 5,
                                               ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:28:44:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L28) *style:* **Only use double-quotes.**
```r
  parti <- partition_factor(ecuador, fac = 'zclass')
                                           ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:37:47:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L37) *style:* **Only use double-quotes.**
```r
  parti <- partition_factor_cv(ecuador, fac = 'zclass', nfold = 5)
                                              ^~~~~~~~
```
[tests/testthat/test-sperrorest-resampling.R:98:63:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L98) *style:* **Commas should always have a space after.**
```r
  parti <- represampling_tile_bootstrap(ecuador, nsplit = c(4,2),
                                                              ^
```
[tests/testthat/test-sperrorest-resampling.R:107:65:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L107) *style:* **Commas should always have a space after.**
```r
  parti <- represampling_kmeans_bootstrap(ecuador, nsplit = c(4,2),
                                                                ^
```
[tests/testthat/test-sperrorest-resampling.R:133:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L133) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-sperrorest-resampling.R:134:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-resampling.R#L134) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[tests/testthat/test-sperrorest-summary.R:213:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L213) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:231:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L231) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:241:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L241) *style:* **Variable or function name should be snake_case.**
```r
  lda.predfun <- function(object, newdata, fac = NULL) {
  ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:247:5:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L247) *style:* **Variable or function name should be snake_case.**
```r
    majority.filter <- function(x, fac) {
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest-summary.R:249:11:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-sperrorest-summary.R:249:22:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-sperrorest-summary.R:249:39:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-sperrorest-summary.R:249:50:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L249) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-sperrorest-summary.R:271:57:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L271) *style:* **Commas should always have a space after.**
```r
  out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                        ^
```
[tests/testthat/test-sperrorest-summary.R:279:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest-summary.R#L279) *style:* **Variable or function name should be snake_case.**
```r
  smry.out <- summary(out)
  ^~~~~~~~
```
[tests/testthat/test-sperrorest.R:46:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L46) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:60:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L60) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:74:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L74) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:95:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L95) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:101:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L101) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:102:73:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L102) *style:* **Commas should always have a space after.**
```r
                                                              newdata)[,2]
                                                                        ^
```
[tests/testthat/test-sperrorest.R:103:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L103) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:135:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
                                 par_args = list(par_mode = "foreach", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:141:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L141) *style:* **Lines should not be more than 80 characters.**
```r
test_that("sperrorest() variable importance with error_rep = F and error_fold = T", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:226:21:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                    ^
```
[tests/testthat/test-sperrorest.R:226:32:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                               ^
```
[tests/testthat/test-sperrorest.R:226:49:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                                                ^
```
[tests/testthat/test-sperrorest.R:226:60:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L226) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                  x[ fac == lev ] <- majority(x[ fac == lev ])
                                                           ^
```
[tests/testthat/test-sperrorest.R:232:73:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L232) *style:* **Commas should always have a space after.**
```r
              if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                                        ^
```
[tests/testthat/test-sperrorest.R:247:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L247) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:259:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L259) *style:* **Lines should not be more than 80 characters.**
```r
            expect_equal(names(out$error_rep)[[1]], "train.error") # check for train.error existence
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:262:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L262) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:267:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L267) *style:* **Lines should not be more than 80 characters.**
```r
                              par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:275:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L275) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:280:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L280) *style:* **Lines should not be more than 80 characters.**
```r
                              par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:303:11:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L303) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-sperrorest.R:303:22:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L303) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-sperrorest.R:303:39:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L303) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-sperrorest.R:303:50:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L303) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-sperrorest.R:309:63:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L309) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-sperrorest.R:323:57:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L323) *style:* **Commas should always have a space after.**
```r
  out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                        ^
```
[tests/testthat/test-sperrorest.R:335:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L335) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(names(out$error_rep)[[1]], "train.error") # check for train.error existence
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:339:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L339) *style:* **Lines should not be more than 80 characters.**
```r
test_that("output length of list is correct for error_rep = TRUE and error_fold  = TRUE
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:348:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L348) *style:* **Lines should not be more than 80 characters.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[, 2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:348:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L348) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[, 2]
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:353:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L353) *style:* **Lines should not be more than 80 characters.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:353:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L353) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:353:81:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L353) *style:* **Commas should always have a space after.**
```r
            mypred.rpart <- function(object, newdata) predict(object, newdata)[,2]
                                                                                ^
```
[tests/testthat/test-sperrorest.R:354:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L354) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:355:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L355) *style:* **Lines should not be more than 80 characters.**
```r
                                      model_fun = rpart, model_args = list(control = ctrl),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:359:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L359) *style:* **Lines should not be more than 80 characters.**
```r
                                      smp_args = list(repetition = 1:2, nfold = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:360:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L360) *style:* **Lines should not be more than 80 characters.**
```r
                                      par_args = list(par_mode = "future", par_units = 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:366:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L366) *style:* **Lines should not be more than 80 characters.**
```r
# par_mode = "apply" variable importance Tue Feb 21 22:15:41 2017 ------------------------------
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:387:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L387) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(names(nspres$error_rep)[[1]], "train.auroc") # check for train.auroc for binary response
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:388:1:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L388) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(class(nspres$importance[[1]][[1]]), "data.frame") # check for importance object
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:460:11:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L460) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
          ^
```
[tests/testthat/test-sperrorest.R:460:22:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L460) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                     ^
```
[tests/testthat/test-sperrorest.R:460:39:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L460) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                      ^
```
[tests/testthat/test-sperrorest.R:460:50:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L460) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        x[ fac == lev ] <- majority(x[ fac == lev ])
                                                 ^
```
[tests/testthat/test-sperrorest.R:466:63:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L466) *style:* **Commas should always have a space after.**
```r
    if (!is.null(fac)) pred <- majority_filter(pred, newdata[,fac])
                                                              ^
```
[tests/testthat/test-sperrorest.R:476:3:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L476) *style:* **Variable or function name should be snake_case.**
```r
  res.lda.sp.par <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
  ^~~~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:476:68:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L476) *style:* **Commas should always have a space after.**
```r
  res.lda.sp.par <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                   ^
```
[tests/testthat/test-sperrorest.R:528:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L528) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:543:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L543) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:556:67:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L556) *style:* **Commas should always have a space after.**
```r
            out <- sperrorest(fo, data = maipo, coords = c("utmx","utmy"),
                                                                  ^
```
[tests/testthat/test-sperrorest.R:578:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L578) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:584:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L584) *style:* **Variable or function name should be snake_case.**
```r
            mypred.rpart <- function(object, newdata) predict(object,
            ^~~~~~~~~~~~
```
[tests/testthat/test-sperrorest.R:585:73:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L585) *style:* **Commas should always have a space after.**
```r
                                                              newdata)[,2]
                                                                        ^
```
[tests/testthat/test-sperrorest.R:586:13:](https://github.com/pat-s/sperrorest/blob/63de14026e10121ef851c70526911200cae7f607/tests/testthat/test-sperrorest.R#L586) *style:* **Variable or function name should be snake_case.**
```r
            par.nsp.res <- sperrorest(data = ecuador, formula = fo,
            ^~~~~~~~~~~
```


Fixed the spelling typo.


certo


@smokku heh, sorry, fixing in next PR


[Table] Refactor RowHeader and ColumnHeader to compose with a shared component (#1140)

Preview: documentation
Coverage: core | datetime


Make 5.6 the minimum, so no need to test on 5.5 anymore. Add 7.1 to CI testing.


The following doc(s) have been deployed to the [sukottokun](https://sukottokun-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/guides/jira](https://sukottokun-static-docs.pantheonsite.io/docs/guides/jira)
- [docs/guides/new-relic-deploys](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-deploys)
- [docs/guides/new-relic-integration](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-integration)
- [source/docs/assets/images/integrations/newrelic/goto_nr.png](https://github.com/pantheon-systems/documentation/commit/4d2730cb48d19148fc17fdb72a7c9ae504d10197/source/docs/assets/images/integrations/newrelic/goto_nr.png)
- [source/docs/assets/images/integrations/newrelic/nr_enable.png](https://github.com/pantheon-systems/documentation/commit/4d2730cb48d19148fc17fdb72a7c9ae504d10197/source/docs/assets/images/integrations/newrelic/nr_enable.png)


The following doc(s) have been deployed to the [sukottokun](https://sukottokun-static-docs.pantheonsite.io/docs) Multidev environment:
- [docs/guides/jira](https://sukottokun-static-docs.pantheonsite.io/docs/guides/jira)
- [docs/guides/new-relic-deploys](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-deploys)
- [docs/guides/new-relic-integration](https://sukottokun-static-docs.pantheonsite.io/docs/guides/new-relic-integration)
- [source/docs/assets/images/integrations/newrelic/goto_nr.png](https://github.com/pantheon-systems/documentation/commit/4d2730cb48d19148fc17fdb72a7c9ae504d10197/source/docs/assets/images/integrations/newrelic/goto_nr.png)
- [source/docs/assets/images/integrations/newrelic/nr_enable.png](https://github.com/pantheon-systems/documentation/commit/4d2730cb48d19148fc17fdb72a7c9ae504d10197/source/docs/assets/images/integrations/newrelic/nr_enable.png)
- [docs/guides/pingdom-uptime-check](https://sukottokun-static-docs.pantheonsite.io/docs/guides/pingdom-uptime-check)
- [source/docs/assets/images/integrations/newrelic/docroot.png](https://github.com/pantheon-systems/documentation/commit/7a91bde684b1e6cb4a37455bf5a111fc02590ab5/source/docs/assets/images/integrations/newrelic/docroot.png)
- [source/docs/assets/images/integrations/pingdom_hp.png](https://github.com/pantheon-systems/documentation/commit/7a91bde684b1e6cb4a37455bf5a111fc02590ab5/source/docs/assets/images/integrations/pingdom_hp.png)


bon j'avoue que.... je suis pas malin avec les tokens.... promis si au prochain commit je met un token alors je vous paie une bière !


You're right! I'll keep my eyes open for this.


```
$ git rm -r --cached .idea
$ echo ".idea" >> .gitignore
```


Wow, sort of mind-blowing. Does this project even have required code reviews..? It's not surprising it has been getting so many security vulnerabilities reported.


A princípio creio que daria pra juntar esses dois fors, porém fica mais organizado separado


The following doc(s) have been deployed to the [optimizely](https://optimizely-static-docs.pantheonsite.io/docs) Multidev environment:
- [source/_partials/footer_scripts.html](https://github.com/pantheon-systems/documentation/commit/f20a9bd386ec35a2ee1c3f9f56f41476a8f1a2a2/source/_partials/footer_scripts.html)


Removed.


>The problem though is that whether or not a file descriptor is nonblocking is actually a property of the file description, not descriptor.

That's a super useful piece of information, thanks a lot!

So yeah, looks like signals are the only solution! On the positive site, it's probably better than busy polling with a read with a timeout :)


Maybe some people would prefer to also hide the progress bar on error ?


@acrobat instead of using the APCU classloader you can optimize the classloader by using an authoritative classmap https://getcomposer.org/doc/articles/autoloader-optimization.md I added this as an extra on top of -o (optimize autoloader) like the docs say. The build and tests seem to work just fine, I added the option to the travis build as well because this has to be set when running tests. Classes that are generated on the fly do not appear in the classmap and thereby will not load. I don't think we depend on such a thing and by having this in travis we will be sure we won't in the future.

Ok for you?


l'exemple ne ressemble pas au format attendu.


I am not sure I like introducing these functions (for 1,2,3,4 subbags). Does this really have a measurable performance impact over giving the number of bags a parameter (which I assume would be statically known almost always?)


Yeah, hopefully we have someone detected those BC, but it could  have been a bit a disaster for our app if we upgraded the dependency by mistake :).


Do we need to add `pylint` or `pylint_django` to `requirements.txt`? It is not something users need to run the website.


```python
>>> datetime.datetime.today().date()
datetime.date(2017, 5, 30)
>>> datetime.datetime.today().date() + datetime.timedelta(days=1)
datetime.date(2017, 5, 31)
>>>
```


ps: cleanup 2db60f99b23dfbce15fe704fffc1c240663cf843


This seems like something that should've been in a pull request, not just put directly into master.


Created multidev environment [badcamp-2017#ci-162](https://dashboard.pantheon.io/sites/8d658997-7a61-4db8-9be8-0f16b8b62022#ci-162).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://ci-162-badcamp-2017.pantheonsite.io/)


Considering that the first example of a NOID at https://confluence.ucop.edu/display/Curation/NOID is "13030/tf5p30086k", I do think the slash concern is real. (It may not be a coincidence that NOID rhymes with "annoyed".)


Co ten srednik tutaj odpierdalal


@evsh Tomorrow same hour I plan to start packaging v3.3.13. Do you have time to test cmake for this branch? I skipped some commits from master that had cmake changes so I am not sure if cmake works for this branch.
PS: Travis doesn't use cmake in this branch.


this is test repo


@pbinkley thoughts here? Diving into the NOID generator code and docs suggests a lot of inconsistency throughout NOID-world about whether or not prefixes can contain a slash and/or whether something like `13030/tf5p30086k` is a valid NOID at all (it's missing the ., which the generator code enforces.

Mangling the NOID in a lossy manner during preservation strikes me as something that might make you or Umar frowny, so I'm thinking we dump this mess on your plates.


Not sure where to put the file yet...
NC temporary folder seems an easy choice, but the file might be deleted after some time if I am not wrong...
Maybe use `OC\Files\AppData` instead with a per-user folder ?


Probably to be removed.


Remove for cleanup (minimal distraction from the pull request)


Bluemix [toolchain](https://console.dys0.bluemix.net/devops/toolchains/61a1182c-2a0c-4089-a31c-f505ed0b9788 "simple-toolchain-20170530191849136"): [Delivery Pipeline](https://console.dys0.bluemix.net/devops/pipelines/a2373b98-020f-481b-97f0-5d64ba694354 "simple-toolchain-20170530191849136") deployed [simple-toolchain-20170530191849136](https://github.com/aetomala/simple-toolchain-20170530191849136/releases/tag/deploy-ibm-dys0-us-south-watson-health-dev-20170530-214202 "deploy-ibm-dys0-us-south-watson-health-dev-20170530-214202") to [dev](https://console.dys0.bluemix.net/apps/ea4564d0-9f36-4493-bfb4-40a170f66574?env_id=ibm:dys0:us-south "ibm:dys0:us-south:watson-health:dev"), including this commit