Fixed by.inter error

R/prepare_refdata.R

@@ -5,7 +5,7 @@
 #' 
 #' @param ref the name of the reference dataset to load (as given in \code{\link{list_refs}}).
 #' @param datapkg the name of the data-package to load the rreference from.
-#' @param n.inter the resolution of the interpolation, as in \code{seq(start, end, length.out = n.inter)}.
+#' @param n.inter,by.inter the resolution of the interpolation, as in \code{seq(start, end, length.out = n.inter)} or \code{seq(start, end, by = by.inter)}.
 #' 
 #' @return a list with the interpolated reference dataset and its associated time series. 
 #' 
@@ -16,15 +16,15 @@
 #' @eval ae_example()
 #'
 #' @importFrom utils getFromNamespace
-prepare_refdata <- function(ref, datapkg,  n.inter = 200)
+prepare_refdata <- function(ref, datapkg, n.inter = NULL, by.inter = NULL)
 {
   requireNamespace(datapkg)
   prepf <- paste0(".prepref_", ref)
 
   if(exists(prepf, where = asNamespace(datapkg), mode = 'function')){
     prepf <- utils::getFromNamespace(x = prepf, ns = datapkg)
 
-    return(invisible(prepf(n.inter = n.inter)))
+    return(invisible(prepf(n.inter = n.inter, by.inter = by.inter)))
   } else {
     stop(paste0("Reference ", ref, " not found. Check list_refs(datapkg = '", datapkg, "') for a valid reference."))
   }