From be1f2306b8aa723632eea0215d4acb579ef9d1dd Mon Sep 17 00:00:00 2001
From: TuomasBorman <tvborm@utu.fi>
Date: Mon, 26 Feb 2024 13:22:55 +0200
Subject: [PATCH] Minor fix to input check

---
 R/searchAnalysis.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/searchAnalysis.R b/R/searchAnalysis.R
index 95fa5dd..fa91c14 100644
--- a/R/searchAnalysis.R
+++ b/R/searchAnalysis.R
@@ -41,7 +41,7 @@ NULL
 setMethod("searchAnalysis", signature = c(x = "MgnifyClient"), function(
         x, type, accession, ...){
     ############################### INPUT CHECK ################################
-    if( !(type %in% c("samples", "studies")) ){
+    if( !(length(type) == 1 && type %in% c("samples", "studies")) ){
         stop(
             "'type' must be 'samples' or 'studies'.", call. = FALSE)
     }