R/landings.db.r

landings.db = function(DS, p) {

  #\\wrapper around Mike McMahon's marfisci tools

  ldbdir = project.datadirectory("aegis", "landings", "raw_data" )

  if (DS %in% c("rawdata", "rawdata.redo")) {
    if (DS=="rawdata") {
      out = NULL
      for (yr in p$marfis.years) {
        fn = file.list( ldbdir, paste( "rawdata", yr, "rdata", sep="." ))
        if ( file.exists(fn)) {
          ldb = NULL
          load(fn)
          out = rbind( out, ldb )
        }
      }
      return(out)
    }

    for (yr in p$marfis.years) {
      ldb = marfissci.get.data(years=yr, get.nonlandings=TRUE, save.csv=FALSE)
      fn = file.list( ldbdir, paste("rawdata", yr, "rdata", sep="." ))
      save( ldb, file=fn, compress=TRUE )
      print(fn)
    }
    return(ldbdir)
  }


  if (DS %in% c("aggregated", "aggregated.redo") ) {

    test = marfissci.process.data(df, agg.minutes=2, agg.by="SPECIES_CODE", save.RDS=F)

    marfissci.batch.process()
    cl.batch.process()
    marfissci.simple.map()

  }



}
jae0/ecmgis documentation built on May 28, 2019, 9:57 p.m.