####################################################################################################
# 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")