Extracts the call from a model object and returns it as a single
whitespace-free string. Tries model$call first, falling back
to model$Call if the first is NULL.
Examples
df <- generate_correlation_matrix()
model <- lm(df$X1 ~ df$X2)
call_to_string(model)
#> [1] "lm(formula=df$X1~df$X2)"