lsting <-as_listing( out,key_cols =c("ATC1", "ATC2", "ATC3", "ATC4"),disp_cols =names(out),main_title ="Listing of Concomitant Medication Class, Preferred Name, and Investigator-Specified Terms")head(lsting, 20)
Listing of Concomitant Medication Class, Preferred Name, and Investigator-Specified Terms
———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
Investigator-Specified
ATC Class Level 1 ATC Class Level 2 ATC Class Level 3 ATC Class Level 4 WHODrug Preferred Name Treatment Term
———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
ATCCLAS1 A ATCCLAS2 A ATCCLAS3 A ATCCLAS4 A medname A_2/3 A_2/3
medname A_3/3 A_3/3
medname A_1/3 A_1/3
ATCCLAS1 A p2 ATCCLAS2 A p2 ATCCLAS3 A p2 ATCCLAS4 A p2 medname A_3/3 A_3/3
ATCCLAS1 B ATCCLAS2 B ATCCLAS3 B ATCCLAS4 B medname B_1/4 B_1/4
medname B_4/4 B_4/4
medname B_2/4 B_2/4
medname B_3/4 B_3/4
ATCCLAS1 B p2 ATCCLAS2 B p2 ATCCLAS3 B p2 ATCCLAS4 B p2 medname B_1/4 B_1/4
medname B_2/4 B_2/4
ATCCLAS1 B p3 ATCCLAS2 B p3 ATCCLAS3 B p3 ATCCLAS4 B p3 medname B_1/4 B_1/4
medname B_2/4 B_2/4
ATCCLAS1 C ATCCLAS2 C ATCCLAS3 C ATCCLAS4 C medname C_1/2 C_1/2
medname C_2/2 C_2/2
ATCCLAS1 C p2 ATCCLAS2 C p2 ATCCLAS3 C p2 ATCCLAS4 C p2 medname C_1/2 C_1/2
medname C_2/2 C_2/2
ATCCLAS1 C p3 ATCCLAS2 C p3 ATCCLAS3 C p3 ATCCLAS4 C p3 medname C_2/2 C_2/2
Experimental use!
WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.
Code
library(dplyr)library(rlistings)adcm <- random.cdisc.data::cadcmout <- adcm %>%select(ATC1, ATC2, ATC3, ATC4, CMDECOD, CMTRT) %>%unique()var_labels(out) <-c(ATC1 ="ATC Class Level 1",ATC2 ="ATC Class Level 2",ATC3 ="ATC Class Level 3",ATC4 ="ATC Class Level 4",CMDECOD ="WHODrug Preferred Name",CMTRT ="Investigator-Specified\nTreatment Term")