sanitised i arguments (ready to release v0.6.0)

DESCRIPTION

@@ -2,7 +2,7 @@ Package: DTSg
 Type: Package
 Title: A Class for Working with Time Series Based on 'data.table' and 'R6' with
     Largely Optional Reference Semantics
-Version: 0.5.0.9000
+Version: 0.6.0
 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)
@@ -36,6 +36,6 @@ Suggests:
     rmarkdown,
     runner (>= 0.3.5),
     tinytest
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 Roxygen: list(r6 = FALSE)
 VignetteBuilder: knitr

NEWS.md

@@ -1,10 +1,10 @@
-## DTSg v0.5.0.9000
+## DTSg v0.6.0
 
 * Added `subset` method: allows for filtering rows and/or selecting columns of a `DTSg` object
 * Added `setCols` method: allows for setting the values of columns of, adding columns to and/or removing columns from a `DTSg` object
 * Added `[` extract operator: acts as a shortcut for the `getCol` method
 * Added examples to the documentation of the `colapply` method showing how to calculate moving averages with the help of the `runner` package instead of the `rollapply` method
-* `aggregate` method can benefit from `data.table`'s *GForce* optimisation now if its `fun` argument is provided with a character vector specifying summary functions
+* `aggregate` method can benefit from `data.table`'s *GForce* optimisation now when its `fun` argument is provided with a character vector specifying summary functions
 * Greatly sped up `nas` method
 * Temporal aggregation level functions supplied to the `funby` argument of the `colapply` method are not forced to return a `POSIXct` timestamp any longer. They are, however, forced to return an atomic mode (the same goes for the `subset` method).
 * `getCol` method now is capable of also querying the *.dateTime* column

R/ClassDTSg.R

@@ -249,8 +249,8 @@ DTSg <- R6Class(
     determineFilter = function(i, expr) {
       tryCatch(
         {
-          if (!testMultiClass(i, c("integer", "numeric")) &&
-              !is.list(i) && !is.expression(i)) {
+          if (!testMultiClass(i, c("integer", "numeric")) && !is.expression(i) &&
+              !is.character(i) && !is.list(i)) {
             i <- expr
           }