From 9018aeec99e94d82290e5a43bbbb50cac4074407 Mon Sep 17 00:00:00 2001
From: FelixErnst <felix.gm.ernst@outlook.com>
Date: Tue, 27 Jul 2021 21:21:18 +0200
Subject: [PATCH] internal bugfix for "length > 1 in coercion to logical"

---
 DESCRIPTION        | 4 ++--
 NEWS               | 3 +++
 R/Modifier-class.R | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index c7e4cb8..195a962 100644
--- 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
index 894a63b..1b110ad 100644
--- 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
index 2c955b2..e7e9c84 100644
--- 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)