R/scbasic.R

In Meiomap/SureTypeSCR: Library for (single-cell) SNP array processing

#'interface to basic function in SureTypeSC 

scbasic = function(bpm,egt,samplesheet) {
  vec=c('samplesheet','manifest','cluster')[!file.exists(c(samplesheet,bpm,egt))]
  if (length(vec)!=0) stop(paste('Cannot locate',paste(vec,collapse=',')))
  re <- scEls()$sc$basic(bpm,egt,samplesheet)
  re <- scEls()$sc$Data$create_from_frame(re)
  re <- get_simpleind_df(re)
  #re <- py_to_r(re)
}