vegtransect_id => vegtransectiid, vtpsiid => vegtransplantsummiid

ncss-tech · Dec 10, 2024 · 8ba9446 · 8ba9446
1 parent 85270f7
commit 8ba9446
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/get_veg_data_from_NASIS_db.R b/R/get_veg_data_from_NASIS_db.R
@@ -46,7 +46,7 @@ get_veg_data_from_NASIS_db <- function(SS=TRUE, dsn = NULL) {
   }
 
   # veg transect
-  q.vegtransect <- "SELECT siteiid, vegplotiid, vegplotid, vegplotname, obsdate, primarydatacollector, datacollectionpurpose, assocuserpedonid, vegtransectid, vegtransplantsummiid vtpsiid, transectlength, plantsym, plantsciname, plantnatvernm
+  q.vegtransect <- "SELECT siteiid, vegplotiid, vegplotid, vegplotname, obsdate, primarydatacollector, datacollectionpurpose, assocuserpedonid, vegtransectid, vegtransplantsummiid, transectlength, plantsym, plantsciname, plantnatvernm
   
     FROM site_View_1 AS s
     INNER JOIN siteobs ON siteobs.siteiidref=s.siteiid

diff --git a/R/get_vegplot_data_from_NASIS_db.R b/R/get_vegplot_data_from_NASIS_db.R
@@ -307,8 +307,8 @@ get_vegplot_transpecies_from_NASIS_db <-  function(SS = TRUE,
   }
 
   # veg transect species data - many species to one veg transect
-  q.vtps <- "SELECT siteiid, siteobsiid, vegplotiid, vegtransectiidref as vegtransect_id, vegplotid, vegplotname,
-    obsdate, vegtransplantsummiid as vtpsiid, vtps.seqnum, plantsym, plantsciname,
+  q.vtps <- "SELECT siteiid, siteobsiid, vegplotiid, vegtransectiidref as vegtransectiid, vegplotid, vegplotname,
+    obsdate, vegtransplantsummiid, vtps.seqnum, plantsym, plantsciname,
     plantnatvernm, plantnativity, planttypegroup,
     plantheightcllowerlimit, plantheightclupperlimit, sociabilityclass,
     specieslivecanhtbotave, specieslivecanhttopave, overstorydbhmin,