R/fix_MIAME.R

In waldronlab/HMP16SData: 16S rRNA Sequencing Data from the Human Microbiome Project

#' @keywords internal
#'
#' @importFrom methods slotNames
#' @importFrom methods slot
#' @importFrom methods is
#' @importFrom methods slot<-
#' @importFrom magrittr %>%
fix_MIAME <- function(x) {
    for (i in slotNames(x)) {
        if (is(slot(x, i), "character")) {
            slot(x, i) <-
                slot(x, i) %>%
                gsub("\\s+", " ", x = .)
        }
    }

    x
}