Error message in ctable: the condition has length > 1

[raffaem]

I get this error message when using ctable:

> ctable(
+   findf %>% pull(kohesio_cost) %>% is.na(),
+   findf %>% pull(kohesio_cost_log) %>% is.na()
+ )
Error in if (grepl("^get\\(", deparse(call[[.p$var]]))) { : 
  the condition has length > 1
Warning in parse_call(mc = match.call(), var = "x", var_label = FALSE, caller = "ctable") :
  metadata extraction terminated unexpectedly; inspect results carefully
Error in if (grepl("^get\\(", deparse(call[[.p$var]]))) { : 
  the condition has length > 1
Warning in parse_call(mc = match.call(), var = "y", var_label = FALSE, caller = "ctable") :
  metadata extraction terminated unexpectedly; inspect results carefully
Cross-Tabulation, Row Proportions  
findf %>% pull(kohesio_cost) %>% is.na() * findf %>% pull(kohesio_cost_log) %>% is.na()  

------------------------------------------ ---------------------------------------------- ---------------- --------------- ----------------
                                             findf %>% pull(kohesio_cost_log) %>% is.na()            FALSE            TRUE            Total
  findf %>% pull(kohesio_cost) %>% is.na()                                                                                                 
                                     FALSE                                                  10430 (100.0%)      0 (  0.0%)   10430 (100.0%)
                                      TRUE                                                      0 (  0.0%)   3363 (100.0%)    3363 (100.0%)
                                     Total                                                  10430 ( 75.6%)   3363 ( 24.4%)   13793 (100.0%)
------------------------------------------ ---------------------------------------------- ---------------- --------------- ----------------

It works correctly with base table:

> table(
+   findf %>% pull(kohesio_cost) %>% is.na(),
+   findf %>% pull(kohesio_cost_log) %>% is.na()
+ )
       
        FALSE  TRUE
  FALSE 10430     0
  TRUE      0  3363

[raffaem]

It works correctly if I assign variables before using it:

a <- findf %>% pull(kohesio_cost) %>% is.na()
b <- findf %>% pull(kohesio_cost_log) %>% is.na()
ctable(a,b)

[dmurdoch]

You should include a definition of findf and the packages you used so others can run your code.

[dmurdoch]

The problem is likely that summarytools:::parse_call calls deparse() on a long expression, and deparse() returns a multi-line response. It should be using deparse1() to get a one line response, or better methods than deparse should be used.

[r2evans]

Reprex from https://stackoverflow.com/q/79860276:

library(dplyr)
test_df <- data.frame(
  a_cost = c(1,2,NA,4,NA,6),
  b_cost = c(NA,2,3,NA,5,6)
)
summarytools::ctable(
  test_df %>% pull(a_cost) %>% is.na(),
  test_df %>% pull(b_cost) %>% is.na()
)

The equivalent base-R code works without error:

summarytools::ctable(is.na(test_df$a_cost), is.na(test_df$b_cost))

I can confirm that parse_call() is where the error occurs, and @dmurdoch's recommendation for deparse1 makes sense (but I did not test/verify).

[r2evans]

See my suggested workaround (https://stackoverflow.com/a/79860871/3358272) for some more context, notably that it may not be just the string length that is to blame, perhaps accompanied by the presence of %>% (since |> does not produce the same errors).