# 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")Run the code above in your browser using DataLab