# NOT RUN {
## Create Histogram figure using a premade settings list
details_list <- list(
list(value_col = "TRTP", label = "Treatment"),
list(value_col = "SEX", label = "Sex"),
list(value_col = "AGEGR1", label = "Age group")
)
filters_list <- list(
list(value_col = "TRTA", label = "Treatment"),
list(value_col = "SEX", label = "Sex"),
list(value_col = "RACE", label = "RACE"),
list(value_col = "AGEGR1", label = "Age group")
)
settingsl <- list(id_col = "USUBJID",
value_col = "AVAL",
measure_col = "PARAM",
unit_col = "PARAMCD",
normal_col_low = "A1LO",
normal_col_high = "A1HI",
details = details_list,
filters = filters_list)
chartRenderer(data=adlbc, settings = settingsl, chart=safetyhistogram)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab