R/lesa.lengdir.R

In einarhjorleifsson/fjolst2:

#' Read from the table fiskar.lengdir or the dataframe all.le
#'
#' @param synis.id xxx
#' @param teg xxx
#' @param col.names xxx
#' @param kyn xxx
#' @param kynthroski xxx
#' @param lengd xxx
#' @param leidrett xxx
#' @param oracle xxx
#' @param lengdir.col xxx
#' @param lengdir.col.oracle xxx
#'
#' @export

lesa.lengdir <- function(synis.id,
                         teg,
                         col.names=c("synis.id","lengd","fjoldi"),
                         kyn=NULL,
                         kynthroski=NULL,
                         lengd=NULL,
                         leidrett=F,
                         oracle=fjolstOracle,
                         lengdir.col = lengdir.col,
                         lengdir.col.oracle = lengdir.col.oracle) {
  if(!oracle) {
    #if(!exists("all.le"))
    #  attach(paste(fjolstlib,"/ExtraStuff/all.le.rda",sep=""))
    if(!is.null(kyn)) col.names <- c(col.names,"kyn")
    if(!is.null(kynthroski)) col.names=c(col.names,"kynthroski")
    col.names <- unique(c("synis.id","lengd","fjoldi",col.names))
    if(is.data.frame(all.le)){
      if(!is.null(synis.id))
        le <- all.le[all.le$tegund %in% teg & all.le$synis.id %in% synis.id ,col.names]
      else
        le <- all.le[all.le$tegund %in% teg,col.names]
    }
    else if(is.list(all.le)) {
      if(!is.null(synis.id))
        le <- all.le[[as.character(teg)]][!is.na(match(all.le[[as.character(teg)]]$synis.id,synis.id)),col.names]
      else
        le <- all.le[[as.character(teg)]][,col.names]
    }
    return(le)

  }

  if(leidrett) table <- "fiskar.leidr_lengdir"
  if(!leidrett) table <- "fiskar.lengdir"
  col.names <- unique(c("synis.id","lengd","fjoldi",col.names))
  if(!is.null(kynthroski)) {
    kynthroski <- paste(kynthroski,collapse=",")
  }

  if(!is.null(lengd)) lengd <- paste(lengd,collapse=",")

  if(!is.null(synis.id)) synis.id <- sort(as.numeric(synis.id))

  ind <- match(col.names,lengdir.col)
  if(length(ind[is.na(ind)])>0) {
    ind1 <-c(1:length(ind));ind1 <- ind1[is.na(ind)]
    print(paste("dalkur",col.names[ind],"er ekki til"))
    return(invisible())
  }
  cn <- lengdir.col.oracle[ind]
  cn <- paste(cn,collapse=",")
  skipun <- paste("select",cn,"from",table,"where tegund =",teg)
  # Sleppa þessu linum, henta ekki.
  #  if(!is.null(kynthroski)) skipun <- paste(skipun,"and kynthroski is not NULL and kynthroski in (",kynthroski,")")
  if(!is.null(lengd)) skipun <- paste(skipun,"and lengd is not NULL and lengd in (",lengd,")")

  #  if(!is.null(kyn)) skipun <- paste(skipun,"and kyn is not NULL and kyn =",kyn)

  x <- run.sqlskipun(skipun,synis.id,"synis_id")

  return(x)
}