qol-package: qol - Quality of Life

Description

This package brings some quality of life concepts and functions inspired by 'SAS' to 'R'. The main goal is to make descriptive evaluations easier, so one can create bigger and more complex outputs in less time with less code. Introducing format containers with multilabels, a more powerful summarise, which is capable to output every possible combination of the provided grouping variables in one go, tabulation functions which can create any table in different styles and other more readable functions.

In addition it offers an error handling which often catches errors and just let's your code flow, even if there are small errors. You always get an understandable message which helps you to get rid of the problem.

The package builds on the incredibly fast data.table and collapse packages for maximum speed and on the wonderful openxlsx2 package for maximum style.

Arguments

Imports

data.table, collapse, openxlsx2

Minimal R Version

4.1.0 or higher

Functions

Creating formats: discrete_format(), interval_format()

Summarisation and tabulation: summarise_plus(), frequencies(), crosstabs(), any_table(), export_with_style(), combine_into_workbook()

Creating a custom table style: excel_output_style(), modify_output_style(), number_format_style(), modify_number_formats()

Recoding: recode(), recode_multi()

Selecting: keep(), dropp(), inverse(), vars_between()

Joining: multi_join()

Transposing: transpose_plus()

Sorting: sort_plus()

If-statement: if.(), else_if.(), else.()

Monitoring: monitor_start(), monitor_end(), monitor_next(), monitor_plot()

Renaming: rename_pattern(), add_extension(), remove_stat_extension(), replace_except()

Retaining: running_number(), mark_case(), retain_value(), retain_sum(), retain_variables()

Generate dummy data: dummy_data()

Conversion: args_to_char(), dots_to_char(), get_origin_as_char() convert_numeric(), convert_factor()

Loading: libname(), set()

Reporting: content_report()

Small helpers: setcolorder_by_pattern(), drop_type_vars(), fuse_variables(), get_excel_range(), get_integer_length()

Split data frame: split_by

Error handling: resolve_intersection(), part_of_df(), remove_doubled_values(), check_weight()

Global options: set_style_options(), reset_style_options(), get_style_options(), close_file(), set_variable_labels(), get_variable_labels(), set_stat_labels(), get_stat_labels(), set_print(), get_print(), set_monitor(), get_monitor(), set_na.rm(), get_na.rm(), set_output(), get_output(), set_titles(), get_titles(), set_footnotes(), get_footnotes()

Other: build_master(), build_rstheme()

Snippets


snippet splus
    summarise_plus(class      = c(var1, var2, ...),
                   values     = c(var1, var2, ...),
                   statistics = c("pct_group", "sum", "sum_wgt", "freq"),
                   weight     = weight_var,
                   formats    = list(var = format., ...),
                   nesting    = "deepest")

snippet if. if.(condition, var = value) |> else_if.(condition, var = value) |> else. ( var = value)

snippet freq frequencies(variables = c(var1, var2, ...), weight = weight_var, formats = list(var = "format.", ...), titles = c(), footnotes = c())

snippet cross crosstabs(rows = row_var, columns = col_var, statistics = c("sum", "pct_row", "pct_column", "pct_total", "freq"), weight = weight_var, formats = list(var = format., ...), titles = c(), footnotes = c())

snippet any any_table(rows = c("var1 + var2 + ...", "var1"), columns = c("var3", "var3 + var4 + ..."), values = c("value_var1", "value_var2"), statistics = c("sum", "pct_group", "pct_value", "freq"), pct_group = c("var1", "var2"), pct_value = list(new_var = "numerator / denominator"), weight = weight_var, formats = list(var = format., ...), titles = c(), footnotes = c(), var_labels = list("var1" = "My label", ...), stat_labels = list("pct" = " box = "")

Author

Tim Siebenmorgen