Add object type asserssion

atorus-research · Dec 15, 2023 · 1ee5839 · 1ee5839
1 parent 081f62d
commit 1ee5839
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/count_bindings.R b/R/count_bindings.R
@@ -576,6 +576,10 @@ set_outer_sort_position <- function(e, outer_sort_position) {
 set_denom_where <- function(e, denom_where) {
  denom_where <- enquo(denom_where)
 
+ if (!(inherits(e, 'tplyr_layer') | inherits(e, 'tplyr_table'))) {
+ stop('Object type should be ', call.=FALSE)
+ }
+
  assert_that(is_logical_or_call(denom_where),
  msg = "The `where` parameter must contain subsetting logic (enter without quotes)")