diff --git a/DESCRIPTION b/DESCRIPTION index bd424ce..310b03c 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: FreesearchR Title: Browser Based Data Analysis -Version: 25.4.1 +Version: 25.4.2 Authors@R: person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7559-1154")) diff --git a/man/expression_string.Rd b/man/expression_string.Rd index 183ae8b..65e2439 100644 --- a/man/expression_string.Rd +++ b/man/expression_string.Rd @@ -17,6 +17,7 @@ Deparses expression as string, substitutes native pipe and adds assign } \examples{ list( +as.symbol(paste0("mtcars$","mpg")), rlang::call2(.fn = "select", !!!list(c("cyl", "disp")), .ns = "dplyr"), rlang::call2(.fn = "default_parsing", .ns = "FreesearchR") ) |> diff --git a/man/regression_model.Rd b/man/regression_model.Rd index 723e4f4..7bb0ce7 100644 --- a/man/regression_model.Rd +++ b/man/regression_model.Rd @@ -9,7 +9,7 @@ \usage{ regression_model( data, - outcome.str, + outcome.str = NULL, auto.mode = FALSE, formula.str = NULL, args.list = NULL, @@ -165,6 +165,8 @@ gtsummary::trial |> dplyr::bind_rows() ms <- regression_model_uv_list(data = default_parsing(mtcars), outcome.str = "mpg", fun.descr = "Linear regression model") ms$code +ls <- regression_model_uv_list(data = default_parsing(mtcars), outcome.str = "am", fun.descr = "Logistic regression model") +ls$code lapply(ms$model, broom::tidy) |> dplyr::bind_rows() } }