finalfit (version 0.9.7)

colname2label: Change column names to variable labels

Description

Written to support stratified tables to summary_factorlist. See example below for explantion.

Usage

colname2label(.data, .cols)

Arguments

.data

Data frame

.cols

Quoted character vector of columns to change

Examples

# NOT RUN {
library(rlang)
library(dplyr)
explanatory = c("age.factor", "sex.factor")
dependent = "perfor.factor"

# Pick option below
split = "rx.factor"
split = c("rx.factor", "node4.factor")

# Piped function to generate stratified crosstabs table
colon_s %>%
  group_by(!!! syms(split)) %>% #Looks awkward, but avoids unquoted var names
  do(
    summary_factorlist(., dependent, explanatory, total = TRUE, p = TRUE)
  ) %>%
  data.frame() %>%
  dependent_label(colon_s, dependent, prefix = "") %>%
  colname2label(split)
  
# }