added check.number function

Author: lsteinmann

NAMESPACE

@@ -1,7 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
 export(calculate.outputrows)
+export(check.number)
 export(create.sub.objects)
+export(create.testing.df)
 export(datsteps)
 export(generate.stepsize)
 export(get.histogramscale)

R/datplot_utility.R

@@ -195,5 +195,24 @@ create.sub.objects <- function(DAT_mat, stepsize) {
   return(result)
 }
 
+#' @title Check for numbers
+#'
+#' @description Checks if value is either numeric, integer or double and and returns TRUE.
+#'
+#' @param value A value to check
+#'
+#' @return TRUE if value is any kind of number, FALSE if value is not
+#'
+#' @export check.number
 
 
+check.number <- function(value) {
+  result <- is.integer(value)
+  if (result == FALSE) {
+    result <- is.numeric(value)
+    if  (result == FALSE) {
+      result <- is.double(value)
+    }
+  }
+  return(result)
+}

man/check.number.Rd

@@ -1,6 +1,7 @@
 source(file = "../create_testing_df.R")
 library(datplot)
 library(devtools)
+library(testthat)
 
 testmat <- matrix(c(1,2,3,4,0,0,50,-200,5,-200,50,5), byrow = FALSE, ncol = 3)
 colnames(testmat) <- c("index", "datmin", "datmax")
@@ -29,8 +30,20 @@ for (r in 1:nrow(testdf)) {
   fristlast[r,2] <- seq[length(seq)]
 }
 
-library(testthat)
 test_that("sequence returns first and last values", {
   expect_equal(fristlast[,1], testdf[,3])
   expect_equal(fristlast[,2], testdf[,4])
 })
+
+
+test_that("check.number returns true for numbers false for other", {
+  expect_true(check.number(numeric(1)))
+  expect_true(check.number(double(1)))
+  expect_true(check.number(integer(1)))
+  expect_false(check.number(character(1)))
+  expect_false(check.number(factor(1)))
+})
+
+
+
+