R/setRownames.R

setRownames <- function(dat) {
    if (nrow(dat) > 0) {
        return(`row.names<-`(dat, 1:nrow(dat)))
    } else {
        return(dat)
    }
}
leeper/MTurkR documentation built on June 6, 2019, 7:38 a.m.