Browse code

added additional check for options input

FelixErnst authored on 25/01/2020 11:57:45
Showing4 changed files

... ...
@@ -3,3 +3,4 @@
3 3
 ^docs*
4 4
 .Rproj
5 5
 _pkgdown.yml
6
+.travis.yml
... ...
@@ -1,8 +1,8 @@
1 1
 Package: RNAmodR
2 2
 Type: Package
3 3
 Title: Detection of post-transcriptional modifications in high throughput sequencing data
4
-Version: 1.1.4
5
-Date: 2020-01-07
4
+Version: 1.1.5
5
+Date: 2020-01-25
6 6
 Authors@R: c(person("Felix G.M.", 
7 7
                     "Ernst", 
8 8
                     email = "felix.gm.ernst@outlook.com", 
... ...
@@ -661,7 +661,7 @@ setReplaceMethod(f = "settings",
661 661
                  signature = signature(x = "Modifier"),
662 662
                  definition = function(x, value){
663 663
                    if(is.null(names(value)) && length(value) > 0L){
664
-                     stop("'value' has to be a named.")
664
+                     stop("'value' has to be a named.", call. = FALSE)
665 665
                    }
666 666
                    if(!is.list(value)){
667 667
                      value <- as.list(value)
... ...
@@ -150,6 +150,9 @@ NULL
150 150
 }
151 151
 
152 152
 .norm_settings <- function(input, settings, ...){
153
+  if(!is.list(input) || is.null(names(input))){
154
+    stop("Input must be a named list.", call. = FALSE)
155
+  }
153 156
   if(!all(c("variable","testFUN","errorValue","errorMessage") %in% colnames(settings))){
154 157
     stop("Invalid columns in settings test definition.", call. = FALSE)
155 158
   }