internal bugfix for "length > 1 in coercion to logical"

FelixErnst · Jul 27, 2021 · 9018aee · 9018aee
1 parent 7036ba9
commit 9018aee
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: RNAmodR
 Type: Package
 Title: Detection of post-transcriptional modifications in high throughput sequencing data
-Version: 1.7.0
-Date: 2021-04-23
+Version: 1.7.1
+Date: 2021-07-27
 Authors@R: c(person("Felix G.M.", 
                     "Ernst", 
                     email = "felix.gm.ernst@outlook.com", 

diff --git a/NEWS b/NEWS
@@ -20,3 +20,6 @@ Changes in version 1.5.3 (2021-01-12)
 
 Changes in version 1.5.4 (2021-01-23)
 + add plot type "points" to plotCompare functions
+
+Changes in version 1.7.1 (2021-07-27)
++ internal bugfix
diff --git a/R/Modifier-class.R b/R/Modifier-class.R
@@ -249,7 +249,7 @@ setClass("Modifier",
          "required", call. = FALSE)
   }
   elementTypes <- elementTypes[match(elementTypes,dataType(x))]
-  if(is.na(elementTypes) || any(elementTypes != dataType(x))){
+  if(any(is.na(elementTypes)) || any(elementTypes != dataType(x))){
     stop("Type of SequenceData elements does not match the requirements of ",
          class(x),". '",paste(dataType(x), collapse = "','"),"' are ",
          "required", call. = FALSE)