R/safe_rownames.R

Defines functions safe_rownames

safe_rownames <- function(x) {

  `if`(is.null(rownames(x)),
       sprintf("seq_%03d", seq_len(nrow(x))),
       rownames(x))
}
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.