fix issue in create.sub.objects

lsteinmann · lsteinmann · commit 438575e7a1d1 · 2021-01-16T22:25:18.000+01:00
that was not clever.
diff --git a/R/datplot_utility.R b/R/datplot_utility.R
@@ -196,9 +196,9 @@ create.sub.objects <- function(DAT_mat, stepsize) {
   result <- as.data.frame(matrix(ncol = 6, nrow = outputrows+100))
 
   diffs <- DAT_mat[,"datmax"]-DAT_mat[,"datmin"]
+  diffs[diffs == 0] <- 1
 
   if (any(diffs < stepsize)) {
-    diffs <- diffs[diffs < stepsize]
     warning(paste("stepsize is larger than the range of the closest dated object at Index = ",
                 paste(which(diffs < stepsize), collapse = ", "), "). For information see documentation of get.step.sequence().", sep = ""))
   }

Original file line number	Diff line number	Diff line change
`@@ -196,9 +196,9 @@ create.sub.objects <- function(DAT_mat, stepsize) {`
`196`	`196`	`result <- as.data.frame(matrix(ncol = 6, nrow = outputrows+100))`
`197`	`197`
`198`	`198`	`diffs <- DAT_mat[,"datmax"]-DAT_mat[,"datmin"]`
	`199`	`+ diffs[diffs == 0] <- 1`
`199`	`200`
`200`	`201`	`if (any(diffs < stepsize)) {`
`201`		`- diffs <- diffs[diffs < stepsize]`
`202`	`202`	`warning(paste("stepsize is larger than the range of the closest dated object at Index = ",`
`203`	`203`	`paste(which(diffs < stepsize), collapse = ", "), "). For information see documentation of get.step.sequence().", sep = ""))`
`204`	`204`	`}`