fix: resolve CRAN issue

gisler · Jun 8, 2022 · 0ede591 · 0ede591
1 parent eb21c32
commit 0ede591
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: DTSg
 Type: Package
 Title: A Class for Working with Time Series Data Based on 'data.table' and 'R6'
     with Largely Optional Reference Semantics
-Version: 1.1.0
+Version: 1.1.1
 Authors@R: person("Gerold", "Hepp", email = "ghepp@iwag.tuwien.ac.at", role = c("aut", "cre"))
 Description: Basic time series functionalities such as listing of missing
     values, application of arbitrary aggregation as well as rolling (asymmetric)

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# DTSg v1.1.0
+# DTSg v1.1.1
 
 * Column names can often now be additionally specified by a character string containing either comma separated column names, for example, `"x,y,z"`, or the start and end column separated by a colon, for example, `"x:z"`
 * Fixed a bug in `interpolateLinear()` causing partial last observation carried forward behaviour when its `roll` argument was specified smaller than the size of the gap to be interpolated

diff --git a/R/Swrappers.R b/R/Swrappers.R
@@ -28,7 +28,7 @@ S3WrapperGenerator <- function(R6Method, self = "x", dots = TRUE) {
   }
   if (!is.expression(R6Method) ||
       R6Method[[1L]][[2L]][[3L]] != "public_methods" ||
-      class(eval(R6Method[[1L]][[2L]][[2L]])) != "R6ClassGenerator") {
+      !testClass(eval(R6Method[[1L]][[2L]][[2L]]), "R6ClassGenerator")) {
     stop(
       '"R6Method" must contain a public method of an "R6ClassGenerator".',
       call. = FALSE