R/getClariomSprobefiledata.R

In GCSscore: GCSscore: an R package for microarray analysis for Affymetrix/Thermo Fisher arrays

# 03.08.20: create data.table version of: getClariomSprobefileData

getClariomSprobefileData <- function(arraytype, datafile,
                                     pkgname, chip.pd, comparewithcdf = FALSE)
{

  dat <- data.table::fread(datafile)
  
  pt = data.table::data.table(transcriptclusterid = dat$transcriptclusterid,
                              category = dat$category,
                              locustype = dat$locustype,
                              fid = dat$fid,
                              fsetid = dat$fsetid,
                              type = dat$type,
                              x = dat$x,
                              y = dat$y,
                              GC.count = dat$GC.count,
                              stringsAsFactors = TRUE)
  
  class(pt) = c("probeFile", class(pt))
  
  ## assign
  dataEnv = new.env(parent=emptyenv())
  assign(pkgname, pt, envir=dataEnv)
  
  datasource = paste("This probeFile for use with the GCSscore R package.  It was created by parsing data from the Bioconductor chip-type platform design (pd) package: ", chip.pd,sep="")
  
  symVal = list(ARRAYTYPE  = arraytype,
                DATASOURCE = datasource,
                NROW       = as.character(nrow(pt)),
                NCOL       = as.character(ncol(pt)),
                CHIP.PD    = chip.pd)
  
  # if(comparewithcdf) .lgExtraParanoia(pt, cdfname)
  
  # return(list(pkgname = pkgname, symVal = symVal, dataEnv = dataEnv))
  return(list(pkgname = pkgname, symVal = symVal, dataEnv = dataEnv))
}