From 0675756ba07ee7186f7de818e139129c5f3911d6 Mon Sep 17 00:00:00 2001
From: Greg Freedman Ellis <greg@crunch.io>
Date: Tue, 26 May 2020 07:51:19 -0500
Subject: [PATCH] oops not specific enough

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

diff --git a/R/add-subvariable.R b/R/add-subvariable.R
index 4b335d8b9..aae7b41b3 100644
--- a/R/add-subvariable.R
+++ b/R/add-subvariable.R
@@ -154,7 +154,7 @@ addSubvarsToSelectDerivation <- function(deriv, new_vars) {
 isSelectCatDerivation <- function(deriv) {
     deriv@expression[["function"]] == "select_categories" &&
         deriv@expression[["args"]][[1]][["function"]] == "array"  &&
-        deriv@expression[["args"]][[1]][["args"]][[1]] == "select"
+        deriv@expression[["args"]][[1]][["args"]][[1]][["function"]] == "select"
 }
 
 addSubvarsToSelectCatDerivation <- function(deriv, new_vars, existing_cats) {