# @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.