R/getAlkTable.R

In Maritimes/Mar.stranal: Stratisfy: STRANAL functionality in R

# @title getAlkTable
# @description This function doesn't do anything yet.
# @param requested  The default value is \code{NULL}. This determines which 
# analytic will be performed.
# @param alkTable  The default value is \code{NULL}. 
# @param oracle_cxn  The default value is \code{NULL}. 
# @importFrom utils read.csv
# @importFrom utils read.delim
# @importFrom openxlsx read.xlsx
# @family Gale-force
# @author  Mike McMahon, \email{Mike.McMahon@@dfo-mpo.gc.ca}
getAlkTable<-function(alkTable=NULL, oracle_cxn = NULL){
  custAlkTable<-NA
  
  fn<-basename(alkTable)
  fn_dets = strsplit(fn, '[.]')[[1]]
  
  if (nchar(fn_dets[2]) %in% c(3,4)){
    #kinda looks like a file
    if (file.exists(alkTable)){
      if (fn_dets[2]=="csv")custAlkTable = utils::read.csv(fn)
      if (fn_dets[2]=="xlsx")custAlkTable = openxlsx::read.xlsx(fn)
      if (fn_dets[2]=="txt")custAlkTable = utils::read.delim(fn)
    }else{
      #maybe a bad path?
      print("check Path")
    }
    
  }else{
    #not a valid file - maybe an oracle object?
    sql <- paste0("select * from ",alkTable)
    custAlkTable<-oracle_cxn$thecmd(oracle_cxn$channel, sql)
    if (class(custAlkTable)=='character')return(NA)
    if (nrow(custAlkTable)<1)return(NA)
  }
  
  return(custAlkTable)
}