R/lesa.leidr.stodvar.R

In einarhjorleifsson/fjolst2:

#' Read from the table fiskar.leidr_stodvar or the dataframe leidr.stodvar
#'
#' @param col.names xxx
#' @param ar xxx
#' @param veidarfaeri xxx
#' @param man xxx
#' @param reitur xxx
#' @param leidangur xxx
#' @param synis.id xxx
#' @param stodvar.col xxx
#' @param stodvar.col.oracle xxx
#' @param stodvar.col.splus xxx
#'
#' @export

lesa.leidr.stodvar <- function(col.names=stodvar.col,
                               ar=NULL,
                               veidarfaeri=NULL,
                               man=NULL,
                               reitur=NULL,
                               leidangur=NULL,
                               synis.id=NULL,
                               stodvar.col = stodvar.col,
                               stodvar.col.oracle = stodvar.col.oracle,
                               stodvar.col.splus = stodvar.col.splus) {
  if(!is.null(veidarfaeri)){
    veidarfaeri <- paste(veidarfaeri,collapse=",")
  }
  x <- match(col.names,stodvar.col)
  ind <- c(1:length(x));ind<- ind[is.na(x)]
  if(length(ind) > 0) {
    txt <- paste("Villa i lesa.stodvar. Dalkar",col.names[ind],"ekki til")
    print(txt)
    return(invisible())
  }
  if(!is.null(ar)){
    for(i in 1:length(ar)) if(ar[i] < 1900) ar[i] <- ar[i] + 1900
    ar <- paste(ar,collapse=",")
  }
  if(!is.null(man))
    man <- paste(man,collapse=",")
  if(!is.null(reitur))
    reitur <- paste(reitur,collapse=",")
  if(!is.null(leidangur)){
    leidangur <- paste(leidangur,collapse="','")
    leidangur <- paste("'",leidangur,"'",sep="")
  }
  nafn2a <- c("kastad_n_breidd","kastad_v_lengd","hift_n_breidd","hift_v_lengd")
  nafn2b <- c("dypi_kastad","dypi_hift")

  dyp <- lat.lon <- F

  ind <- match(col.names,stodvar.col.splus)
  dn <- stodvar.col.oracle[ind[!is.na(ind)]]
  ind <- match(col.names,c("lat","lon"));ind<-ind[!is.na(ind)]
  if(length(ind)>0){ dn <- c(dn,nafn2a);lat.lon <- T}

  ind <- match(col.names,c("dypi"));ind <- ind[!is.na(ind)]
  if(length(ind)>0){ dn <- c(dn,nafn2b);dyp <- T}

  #  dn <- c("synis_id",dn)
  ind <- match(dn,c("lat","lon","dypi"))
  ind1 <- c(1:length(ind));ind1<- ind[!is.na(ind)]
  if(length(ind1)>0) dn <- dn[-ind1]
  dn1 <- unique(dn)
  ind <- match(dn1,c("ar","man","dags","kl.kastad","kl.hift"))
  ind1 <- c(1:length(ind));ind <- ind1[is.na(ind)]
  dn1 <- dn1[ind]
  dn2 <- dn1
  txt <- c("londunarhofn","fjardarreitur","veidarfaeri","kastad_n_breidd","hift_n_breidd","kastad_v_lengd","hift_v_lengd","yfirbordshiti","skip","fiskar.stodvar.synis_id")
  txt1 <- c("l_hofn","fj_reitur","veidarf","kastad_breidd","hift_breidd","kastad_lengd","hift_lengd","yfirb_hiti","skip_nr","synis_id")
  txt3 <- c("londunarhofn","fjardarreitur","veidarfaeri","kastad.n.breidd","hift.n.breidd","kastad.v.lengd","hift.v.lengd","yfirbordshiti","skip","synis.id")

  i <- match(txt,dn1)
  i1 <- 1:length(i);i1 <- i1[!is.na(i)];i <- i[!is.na(i)]
  dn1[i] <- txt1[i1]
  i <- grep("net_nr",dn1)
  if(length(i) > 0) {
    dn1 <- dn1[-i]
    dn2 <- dn2[-i]
  }
  dn <- paste(dn1,collapse=",")
  #synis_is > 0 dummy til að geta bætt við
  skipun <- paste("select",dn,",to_char(dags,'YYYY') ar,to_char(dags,'MM') man,to_char(dags,'DD') dags,to_char(togbyrjun,'HH24') kl_kastad,to_char(togendir,'HH24') kl_hift,to_char(togbyrjun,'mi') min_kastad,to_char(togendir,'mi') min_hift from fiskar.leidr_stodvar where synis_id > 0")
  if(!is.null(ar))
    skipun <- paste(skipun,"and to_char(dags,'YYYY') in (",ar,")")
  if(!is.null(man))
    skipun <- paste(skipun,"and to_char(dags,'MM') in (",man,")")
  if(!is.null(reitur))
    skipun <- paste(skipun,"and reitur in (",reitur,")")
  if(!is.null(veidarfaeri))
    skipun <- paste(skipun,"and veidarfaeri in (",veidarfaeri,")")
  if(!is.null(leidangur)){
    skipun <- paste(skipun,"and leidangur in (",leidangur,")")
  }
  x <- ora::sql(skipun,dots=T)
  # This becomes a character in sql
  for(i in c("ar","man","dags","kl.kastad","min.kastad","min.hift","kl.hift"))x[,i] <- as.numeric(x[,i])
  i <- is.na(x$hnattstada)
  if(any(i)) x$hnattstada[i] <- -1
  x$kl.kastad <- x$kl.kastad+x$min.kastad/60
  x$kl.hift <- x$kl.hift+x$min.hift/60
  i <- match(c("min.kastad","min.hift"),names(x))
  x <- x[,-i]

  #Breyta i desimal tolur
  i <- match(skipta.texta(txt1),names(x))
  names(x)[i] <- txt3

  ind <- match(c("kastad.n.breidd","hift.n.breidd"),names(x))
  ind <- ind[!is.na(ind)]
  if(length(ind)>0) {
    x$kastad.n.breidd <- geo::geoconvert(x$kastad.n.breidd)
    x$hift.n.breidd <- geo::geoconvert(x$hift.n.breidd)
  }
  ind <- match(c("kastad.v.lengd","hift.v.lengd"),names(x))
  ind <- ind[!is.na(ind)]
  if(length(ind)>0) {
    x$kastad.v.lengd <- x$hnattstada*geo::geoconvert(x$kastad.v.lengd)
    x$hift.v.lengd <- x$hnattstada*geo::geoconvert(x$hift.v.lengd)
  }

  if(lat.lon || is.null(col.names)) {
    x$lon <- na.mean(x$hift.v.lengd,x$kastad.v.lengd)
    x$lat <- na.mean(x$hift.n.breidd,x$kastad.n.breidd)
  }
  if(dyp || is.null(col.names))
    x$dypi <- na.mean(x$dypi.kastad,x$dypi.hift)
  if(!is.na(match("net.nr",col.names)))
    x$net.nr <- rep(0,nrow(x))*NA


  cl <- unique(c("synis.id",col.names))
  ind <- match(cl,names(x))
  ind <- ind[!is.na(ind)]
  x <- x[,ind]
  return(x)
}