Extraction of .study object default values — sample_study

Sample the default value of the .study object defined in the tlg-functions and returns an existing default value.

Usage

sample_study_object()

Value

(list)

Examples

lst <- sample_study_object()
dput(lst)
#> list(actualarm = "ACTARM", analysis_var = "AVAL", color_dict = NULL, 
#>     demo_vars = c("AAGE", "AGEGR1", "SEX", "ETHNIC", "RACE"), 
#>     demo_vars_lbl = c("Age (yr)", "Pooled Age Group 1 (yr)", 
#>     "SEX", "ETHNIC", "RACE"), demo_vars_lbls = NULL, disc_reason_var = "DCSREAS", 
#>     evo_vars = c("AVAL", "CHG"), evo_vars_lbls = c("Analysis \nValue", 
#>     "Change from \nBaseline"), group_grades = NULL, lbl_analysis_var = "Analysis Value", 
#>     lbl_medconcept_var = c("SMQ01", "SMQ02", "CQ01"), lbl_overall = NULL, 
#>     lbl_safety_var = c("FATAL", "SER", "SERWD", "SERDSM", "RELSER", 
#>     "WD", "DSM", "REL", "RELWD", "RELDSM", "CTC35", "CTC45", 
#>     "SEV"), legend_pos = "top", medconcept_var = c("SMQ01", "SMQ02", 
#>     "CQ01"), paramcd_order = c("TNDOSE", "DOSE", "NDOSE", "TDOSE"
#>     ), planarm = "ARM", safety_var = c("FATAL", "SER", "SERWD", 
#>     "SERDSM", "RELSER", "WD", "DSM", "REL", "RELWD", "RELDSM", 
#>     "CTC35", "CTC45", "SEV"), severity_grade = c("MILD", "MODERATE", 
#>     "SEVERE", "LIFE THREATENING"), show_cat_stats = "ALL", show_cont_stats = "ALL", 
#>     show_h_grid = TRUE, show_v_grid = FALSE, status = "EOSSTT", 
#>     status_treatment = "EOTSTT", status_var = "EOSSTT", visitvar = "AVISIT")