R/import_seahorse.R

In XiangZhangSC/rwave: What the Package Does (One Line, Title Case)

#' Import Seahorse data
#' 
#' Load Seahorse Excel files into R as a data frame
#' 
#' Import the Excel spreadsheet which contains the Seahorse XF assay result
#' @param x Excel spreadsheet which contains the Seahorse XF assay result
#' @return a list with two \code{data.frame} corresponding to the Rate and Raw data
#' @import readxl
#' @import dplyr
#' @export
import_seahorse <- function(x) {
  dat_rate <- read_excel(x, sheet = "Rate")
  dat_raw <- read_excel(x, sheet = "Raw")
  
  dat_seahorse <- list()
  dat_seahorse$Rate <- dat_rate
  dat_seahorse$Raw <- dat_raw
  
  return(dat_seahorse)
}