R/exampletree.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

#' provide example files
#'
#' @param type one of "herg", "NaV","PLXLS"
#'
#' @return String. the path of the specified example file
#' @export

examplefile <- function(type=c("herg", "NaV","PLXLS", "hergDRC")) {
  type <- match.arg(type)
  switch(type,
         herg = system.file("extdata/2014-07-22_CHO hERG.dat",package = "ephys2"), 
         hergDRC = system.file("extdata/20140424.dat",package = "ephys2"),
         NaV =  system.file("extdata/VG_Blocker.dat",package = "ephys2"),
         PLXLS =system.file("extdata/120911/VG_Blocker_1.xls",package = "ephys2"),
         PLXLS2 =system.file("extdata/120911/VG_Blocker_2.xls",package = "ephys2")
  )
}