From b1345a31dcacd4286b0b2c951f14f4d44f96d36c Mon Sep 17 00:00:00 2001
From: stemangiola <mangiolastefano@gmail.com>
Date: Fri, 27 Aug 2021 21:12:01 +1000
Subject: [PATCH] allow multi assayfor validation

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

diff --git a/NAMESPACE b/NAMESPACE
index 94d39c49..cf06bae3 100755
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -132,6 +132,7 @@ importFrom(rlang,is_spliced)
 importFrom(rlang,quo_is_missing)
 importFrom(rlang,quo_is_null)
 importFrom(rlang,quo_is_symbol)
+importFrom(rlang,quo_is_symbolic)
 importFrom(rlang,quo_name)
 importFrom(rlang,quo_squash)
 importFrom(scales,extended_breaks)
diff --git a/R/utilities.R b/R/utilities.R
index 0ee98539..5c1f956d 100755
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -432,6 +432,7 @@ add_class = function(var, name) {
 #' @keywords internal
 #'
 #' @importFrom rlang quo_is_symbol
+#' @importFrom rlang quo_is_symbolic
 #'
 #' @param .data A tibble
 #' @param .sample A character name of the sample column
@@ -451,7 +452,7 @@ get_sample_transcript_counts = function(.data, .sample, .transcript, .abundance)
       .transcript =  get_tt_columns(.data)$.transcript
     else my_stop()
 
-    if( .abundance %>% quo_is_symbol() ) .abundance = .abundance
+    if( .abundance %>% quo_is_symbolic() ) .abundance = .abundance
     else if(".abundance" %in% (.data %>% get_tt_columns() %>% names))
       .abundance = get_tt_columns(.data)$.abundance
     else my_stop()