correction in generate.stepsize()

Author: lsteinmann

R/datplot_utility.R

@@ -2,14 +2,14 @@
 #'
 #' @description todo
 #'
-#' @param timespans todo
+#' @param DAT_df todo
 #'
 #' @return stepsize
 #'
 #' @export generate.stepsize
 
-generate.stepsize <- function(timespans) {
-  stepsize <- min(abs(DAT_df[,4] - DAT_df[,3]))
+generate.stepsize <- function(DAT_df) {
+  timespans <- abs(DAT_df[,3] - DAT_df[,4])
   if(stepsize < 1) {
     stepsize <- 1
   }

R/datsteps.R

@@ -20,8 +20,7 @@
 datsteps <- function(DAT_df, stepsize = 25) {
   result <- as.data.frame(NULL)
   if (stepsize == "auto") {
-    timespans <- abs(DAT_df[,3] - DAT_df[,4])
-    stepsize <- generate.stepsize(timespans)
+    stepsize <- generate.stepsize(DAT_df)
   } else if (!is.numeric(stepsize)) {
     stop(print("stepsize has to be either 'auto' or numeric."))
   }