f <- list(
surv = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci"),
surv_diff = c("rate_diff", "rate_diff_ci", "ztest_pval")
)
.stats <- c("pt_at_risk", "rate_diff")
h_split_param(.stats, .stats, f = f)
# $surv
# [1] "pt_at_risk"
#
# $surv_diff
# [1] "rate_diff"
.formats <- c("pt_at_risk" = "xx", "event_free_rate" = "xxx")
h_split_param(.formats, names(.formats), f = f)
# $surv
# pt_at_risk event_free_rate
# "xx" "xxx"
#
# $surv_diff
# NULL
Run the code above in your browser using DataLab