R/textMeta.R

In rusher321/rmeta: the function for my daily work

#' transform a vector to string
#'
#' @param x
#' @param sep
#'
#' @return string
#' @export
#'
#' @examples
pasteP <- function(x, sep){
  # x is vector
  # sep is a  character string to separate the terms
  # join the vector
  # len <- length(x)
  # y <- c()
  # for(i in 1:len){
  #  y <- paste(y, x[i], sep = sep)
  # }
  y <- paste(x, collapse = sep)
  return(y)
}

#' mergeP
#' merge two dataframe ,who have diffrent colname & diffrent rowname
#'
#' @param dat1
#' @param dat2
#' @param by
#'
#' @return
#' @export
#'
#' @examples
mergeP <- function(dat1, dat2){
  # add the sample ID as the by index
  dat1$by <- rownames(dat1)
  dat2$by <- rownames(dat2)

  #  get the colnames
  coldat1 <- colnames(dat1)
  coldat2 <- colnames(dat2)

  interfeature <- intersect(coldat1, coldat2)

  if(length(interfeature)==1){
    out <- merge(dat1, dat2, by=by, all=T)
  }else{

    diffdat1 <- setdiff(coldat1, interfeature)
    diffdat2 <- setdiff(coldat2, interfeature)
    tmp1 <- dat1[, c(by, diffdat1)]
    tmp2 <- dat2[, c(by, diffdat2)]
    # combine the same column
    tmp3 <- merge(tmp1, tmp2, by = by, all=T)
    tmpC <- rbind(dat1[, interfeature], dat2[, interfeature])
    out <- cbind(tmpC[order(tmpC$by), ],
                 tmp3[order(tmp3$by), -which(colnames(tmp3)==by)])
  }

  return(out)

}



#' Combine the file list
#'
#' @param filelist
#'
#' @return
#' @export
#'
#' @examples
combindfile <- function(filelist){

  tmp <- filelist[[1]]
  tmp$name <- rownames(tmp)
  # name
  for(i in 2:length(filelist)){

    file2 <- filelist[[i]]
    file2$name <- rownames(filelist[[i]])
    tmp <- merge(tmp, file2, by="name", all=T)


  }
  rownames(tmp) <- tmp$name
  out <- tmp[, -which(colnames(tmp)=="name")]
  out[is.na(out)] <- 0
  return(out)
}