sample_study_object.RdSample the default value of the .study object defined in the tlg-functions and returns an existing default value.
sample_study_object()(list)
lst <- sample_study_object()
dput(lst)
#> list(actualarm = "ACTARM", analysis_var = "AVAL", 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"), 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", "SEV"), severity_grade = c("MILD", "MODERATE",
#> "SEVERE", "LIFE THREATENING"), show_cat_stats = "ALL", show_cont_stats = "ALL",
#> status = "EOSSTT", status_treatment = "EOTSTT", status_var = "EOSSTT",
#> summary_demo = c("AAGE", "AGEGR1", "SEX", "ETHNIC", "RACE"
#> ), summary_demo_lbl = c("Age (yr)", "Pooled Age Group 1 (yr)",
#> "SEX", "ETHNIC", "RACE"), visitvar = "AVISIT")