View source: R/showElementTable.R
| showElementTable | R Documentation |
Coerces part of the information of a Veg-X object into a data frame
showElementTable( x, element = "plot", IDs = FALSE, subjects = FALSE, max.nchar = 30 )
x |
An object of class |
element |
The name of the main element to be coerced: 'project', 'plot', 'party', 'plotObservation', 'organismIdentity', 'stratum', 'stratumObservation', 'surfaceType', 'surfaceCoverObservation', 'aggregateOrganismObservation', 'individualOrganism', 'individualOrganismObservation', 'communityObservation', 'siteObservation', 'method', 'attribute', 'literatureCitation'. |
IDs |
A boolean flag to indicate whether internal identifiers should be included in the output. |
subjects |
A boolean flag to indicate whether method subjects should be included in the output. |
max.nchar |
Maximum number of characters in strings |
a data frame
data(mokihinui)
# Create document 'x' with aggregate organism observations
mapping = list(plotName = "Plot", obsStartDate = "PlotObsStartDate",
taxonName = "NVSSpeciesName",
stratumName = "Tier", cover = "Category")
coverscale = defineOrdinalScaleMethod(name = "Recce cover scale",
description = "Recce recording method by Hurst/Allen",
subject = "plant cover",
citation = "Hurst, JM and Allen, RB. (2007)
The Recce method for describing New Zealand vegetation – Field protocols.
Landcare Research, Lincoln.",
codes = c("P","1","2","3", "4", "5", "6"),
quantifiableCodes = c("1","2","3", "4", "5", "6"),
breaks = c(0, 1, 5, 25, 50, 75, 100),
midPoints = c(0.05, 0.5, 15, 37.5, 62.5, 87.5),
definitions = c("Presence", "<1%", "1-5%","6-25%", "26-50%",
"51-75%", "76-100%"))
strataDef = defineMixedStrata(name = "Recce strata",
description = "Standard Recce stratum definition",
citation = "Hurst, JM and Allen, RB. (2007)
The Recce method for describing New Zealand vegetation – Field protocols.
Landcare Research, Lincoln.",
heightStrataBreaks = c(0, 0.3,2.0,5, 12, 25, 50),
heightStrataNames = paste0("Tier ",1:6),
categoryStrataNames = "Tier 7",
categoryStrataDefinition = "Epiphytes")
x = addAggregateOrganismObservations(newVegX(), moki_tcv,
mapping = mapping,
methods = c(cover=coverscale),
stratumDefinition = strataDef)
# Summary
summary(x)
# show plot information
showElementTable(x, "plot")
# show plot observation information
showElementTable(x, "plotObservation")
# show methods, attributes, citations
showElementTable(x, "method")
showElementTable(x, "attribute")
showElementTable(x, "literatureCitation")
# show aggregate organism observations (only some of them)
head(showElementTable(x, "aggregateOrganismObservation"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.