# This shows the definition of all pre-defined `event` objects that ship
# with {admiralonco}
exports <- sort(getNamespaceExports("admiralonco"))
for (obj_name in exports) {
obj <- getExportedValue("admiralonco", obj_name)
if (inherits(obj, "event_def")) {
cat("\n", obj_name, ":\n", sep = "")
print(obj, indent = 2)
}
}
Run the code above in your browser using DataLab