First commit with the code Hector shared with me

10_EXPORTS/00_export_headers.R

@@ -0,0 +1,203 @@
+####################################################################################################
+# headers for forceps-export files
+####################################################################################################
+
+#----
+
+(headers_complete_export <- c(
+  'date',
+  'patchId',
+  'id',
+  'speciesId',
+  'speciesShortName',
+  'genotypeName',
+  'age',
+  'dbh_cm',
+  'height_m',
+  'volume_m3',
+  'crownA1',
+  'crownLength',
+  'dbhIncrement',
+  'slowGrowthIndex',
+  'foliageArea',
+  'LAI',
+  'lightAvailability',
+  'algf',
+  'leafUnfoldingDate',
+  'leafSenescenceDate',
+  'treeDroughtIndex',
+  'droughtIndexModifier',
+  'sureauClassId',
+  'hydraulicConductance',
+  'trunkApoplasmPLC',
+  'leafApoplasmPLC',
+  'trunkTurgorPressure',
+  'meanleafWaterStatus',
+  'meanStomatalClosure',
+  'yearlyTranspirationSum',
+  'frostDefoliationPercentage',
+  'droughtDefoliationPercentage',
+  'causeOfDeath',
+  'extractedBranchPercentage',
+  'rootDepth_m',
+  'fineRootArea_m2',
+  'rootShootRatio',
+  'droughtFactor',
+  'basalArea_m2',
+  'trunkBiomass_kg',
+  'branchBiomass_kg',
+  'foliageBiomass_kg',
+  'aboveGroundBiomass',
+  'fineRootBiomass_kg',
+  'rootBiomass_kg',
+  'totalBiomass_kg',
+  'trunkSurfaceArea_m2',
+  'numberOfTREMs',
+  'x',
+  'y'
+))
+saveRDS(headers_complete_export, file = "headers_complete_export.Rds")
+
+#----
+
+(headers_mean_stand_export <- c(
+  'date',
+  'nTrees.ha',
+  'totalBiomass_t.ha',
+  'totalBasalArea_m2.ha',
+  'meanHeight_m.ha',
+  'totalVolume_m3.ha',
+  'LAI',
+  'droughtIndexAnnual',
+  'droughtIndexSeasonal',
+  'winterTMIN_deg',
+  'GDDannual_deg.day',
+  'GDDseasonal_deg.day',
+  'nTreesMean',
+  'nTreesSD',
+  'biomassMean',
+  'biomassSD',
+  'basalAreaMean',
+  'basalAreaSD',
+  'heightMean',
+  'heightSD',
+  'volumeMean',
+  'volumeSD',
+  'yearlyTranspirationSum',
+  'maxMonthlySoilWaterQuantity',
+  'meanMonthlySoilWaterQuantity',
+  'minMonthlySoilWaterQuantity',
+  'actualHeightVCI',
+  'potentialHeightVCI',
+  'managementIds'
+))
+saveRDS(headers_mean_stand_export, file = "headers_mean_stand_export.Rds")
+
+#----
+
+(headers_IBP_export <- c(
+  'date',
+  'alphaVCI',
+  'betaVCI',
+  'gammaVCI',
+  'alphaSpeciesRichness',
+  'betaSpeciesRichness',
+  'gammaSpeciesRichness',
+  'alphaSpeciesShannonIndex',
+  'betaSpeciesShannonIndex',
+  'gammaSpeciesShannonIndex',
+  'alphaClumpingIndex',
+  'betaClumpingIndex',
+  'gammaClumpingIndex',
+  'dbh_Gini',
+  'height_Gini',
+  'alphaAncientness',
+  'betaAncientness',
+  'gammaAncientness',
+  'numberOfTREM',
+  'numberOfTREMTrees',
+  'basalArea_Gini',
+  'LAI_Gini',
+  'LAI_Openness',
+  'numberOfLiveVerySmallTrees',
+  'numberOfLiveSmallTrees',
+  'numberOfLiveMediumTrees',
+  'numberOfLiveLargeTrees',
+  'numberOfLiveVeryLargeTrees',
+  'numberOfLiveVeryVeryLargeTrees',
+  'numberOfStandingDeadVerySmallTrees',
+  'numberOfStandingDeadSmallTrees',
+  'numberOfStandingDeadMediumTrees',
+  'numberOfStandingDeadLargeTrees',
+  'numberOfStandingDeadVeryLargeTrees',
+  'numberOfStandingDeadVeryVeryLargeTrees',
+  'numberOfFallenDeadVerySmallTrees',
+  'numberOfFallenDeadSmallTrees',
+  'numberOfFallenDeadMediumTrees',
+  'numberOfFallenDeadLargeTrees',
+  'numberOfFallenDeadVeryLargeTrees',
+  'numberOfFallenDeadVeryVeryLargeTrees'
+))
+saveRDS(headers_IBP_export, file = "headers_IBP_export.Rds")
+
+#----
+
+(headers_cut_export <- c(
+  'dateOfCut',
+  'patchId',
+  'id',
+  'speciesId',
+  'speciesShortName',
+  'genotypeName',
+  'age',
+  'dbh_cm',
+  'height_m',
+  'volume_m3',
+  'extractedBranchPercentage',
+  'trunkBiomass_kg',
+  'branchBiomass_kg',
+  'foliageBiomass_kg',
+  'aboveGroundBiomass_kg',
+  'fineRootBiomass_kg',
+  'rootBiomass_kg',
+  'totalBiomass_kg',
+  'x',
+  'y'
+))
+
+saveRDS(headers_cut_export, file = "headers_cut_export.Rds")
+
+#----
+
+(headers_scene_deadwood_export <- c(
+'date',
+'speciesId',
+'speciesName',
+'genotypeName',
+'fallenLeafBiomassStock',
+'deadBranchBiomassStock',
+'deadFineRootBiomassStock',
+'deadLargeRootBiomassStock',
+'deadStandingTreeBiomassStock',
+'deadFallenTreeBiomassStock',
+'yearFallenLeafBiomass',
+'yearDeadBranchBiomass',
+'yearDeadFineRootBiomass',
+'yearDeadLargeRootBiomass',
+'yearDeadStandingTreeBiomass',
+'yearDeadFallenTreeBiomass',
+'soilOrganicCarbonStock',
+'soilCarbonEmission',
+'soil_A_Compound_Stock',
+'soil_W_Compound_Stock',
+'soil_E_Compound_Stock',
+'soil_N_Compound_Stock',
+'soil_H_Compound_Stock',
+'livingTrunkBiomassStock',
+'livingBranchBiomassStock',
+'livingLeafBiomassStock',
+'livingFineRootBiomassStock',
+'livingLargeRootBiomassStock',
+'yearExtractedSnagBiomass'
+))
+saveRDS(headers_scene_deadwood_export, file = "headers_scene_deadwood_export.Rds")