R/setRownames.R

setRownames <- function(dat) {
    if (nrow(dat) > 0) {
        return(`row.names<-`(dat, 1:nrow(dat)))
    } else {
        return(dat)
    }
}
cloudyr/MTurkR documentation built on June 4, 2019, 3:30 p.m.