inst/scripts/99.data.requests.r

In AtlanticR/bio.groundfish: Core utilities to operate with groundfish data bases within Ecomod and associated projects.

  p = bio.groundfish::load.groundfish.environment()

  loc = file.path( project.datadirectory("bio.groundfish"), "data", "2006")

    load( file.path(loc,"gscat.rdata") )
    load( file.path(loc,"gsinf.rdata") )
    set = merge(x=gscat, y=gsinf, by=c("id"), all.x=T, all.y=F, sort=F)
    rm (gscat, gsinf)

    load( file.path(loc,"gshyd.rdata") )
    set = merge(x=set, y=gshyd, by=c("id"), all.x=T, all.y=F, sort=F)
    rm (gshyd)

    gstaxa = taxonomy.db( "gstaxa")
    set = merge(x=set, y=gstaxa, by=c("spec"), all.x=T, all.y=F, sort=F)
    rm (gstaxa)

    vars = c("id", "spec", "namecom", "yr","totwgt","totno", "lon", "lat")

    sets.requested = which(set$settype==1 )
    set=set[sets.requested,vars]

  write.table(set, "bio.groundfish.data.laurel.extraction.cvs", sep=";")