... | ... |
@@ -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 |
} |