From e80b18b750e5f5429cd924c94887aff36f6f5616 Mon Sep 17 00:00:00 2001
From: Johannes Rainer <johannes.rainer@gmail.com>
Date: Wed, 25 Sep 2024 08:31:43 +0200
Subject: [PATCH] deps: import msLevel<-

---
 NAMESPACE              | 1 +
 R/MsBackendDataFrame.R | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index 0a9fbcf9..d354b3c5 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -229,6 +229,7 @@ importMethodsFrom(ProtGenerics,"intensity<-")
 importMethodsFrom(ProtGenerics,"isolationWindowLowerMz<-")
 importMethodsFrom(ProtGenerics,"isolationWindowTargetMz<-")
 importMethodsFrom(ProtGenerics,"isolationWindowUpperMz<-")
+importMethodsFrom(ProtGenerics,"msLevel<-")
 importMethodsFrom(ProtGenerics,"mz<-")
 importMethodsFrom(ProtGenerics,"peaksData<-")
 importMethodsFrom(ProtGenerics,"polarity<-")
diff --git a/R/MsBackendDataFrame.R b/R/MsBackendDataFrame.R
index c13052b7..041be31e 100644
--- a/R/MsBackendDataFrame.R
+++ b/R/MsBackendDataFrame.R
@@ -279,6 +279,8 @@ setMethod("msLevel", "MsBackendDataFrame", function(object, ...) {
 })
 
 #' @rdname hidden_aliases
+#'
+#' @importMethodsFrom ProtGenerics msLevel<-
 setReplaceMethod("msLevel", "MsBackendDataFrame", function(object, value) {
     if (!is.integer(value) && is.numeric(value))
         value <- as.integer(value)