dummyfun <- function(x) x
rdo8 <- list_Rd(name = "Dummyname", alias = "dummyfun",
title = "Dummy title", description = "Dummy description",
usage = "dummyfun(x,y)",
value = "numeric vector",
author = "",
details = "",
note = "",
Rd_class=TRUE )
Rdo_empty_sections(rdo8) # "details" "note" "author"
rdo8a <- Rdo_drop_empty(rdo8)
Rdo_empty_sections(rdo8a) # character(0)
Run the code above in your browser using DataCamp Workspace