## Not run:
# # this needs "timezones.Rd".
#
# infile <- file.path(R.home(), "src/library/base/man/timezones.Rd")
# rd <- parse_Rd(infile)
#
# # The functions described here handle also "ifdef" and similar
# # directives. This contains an element windows = "TZDIR"
# Rdo_collect_aliases(rd)
#
# # In contrast, the following do not find "TZDIR"
# sapply(rd[which(tools:::RdTags(rd)=="\alias")], as.character)
# tools:::.Rd_get_metadata(rd, "alias")
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace