R/importRawData.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Imports raw data frame
#'
#' @return
#' @export
#'
#' @importFrom readxl read_xlsx
#'
#'
importRawData <- function() {


  dir <- "."
  done <- FALSE

  while(!done) {

    print(list.files(dir))
    file <- list.files(dir)[as.numeric(readline("Choose file or folder: "))]
    dir <- paste(dir, file, sep = "/")

    #new directory
    if(file.info(dir)$isdir) {
      message("Open folder.")
    }

    #txt file
    else if(regexpr(".txt", file) != -1) {
      data <- read.delim(dir, header = TRUE, stringsAsFactors = FALSE)
      data <- setColRowNames(data)
      saveThis(data, destination = "raw.data")

      dir <- "."
      done <- ok("Done?")
    }

    #xlsx file
    else if(regexpr(".xlsx", file) != -1) {
      data <- data.frame(readxl::read_xlsx(dir), stringsAsFactors = T)
      data <- setColRowNames(data)
      saveThis(data, destination = "raw.data")

      dir <- "."
      done <- ok("Done?")
    }


  }

}