# SET TABLE FOR THE REPORT
table.name <- "F9-P07-T01-COMPENSATION"
folder.name <- paste0( "TABLE-", table.name )
sample.size <- 100library( irs990efile ) # functions for parsing efile XMLs
library( dplyr ) # data wrangling
library( purrr ) # data wrangling
library( pander ) # formatting
library( knitr ) # formatting
library( DT ) # table printing
library( httr ) # web requests
library( xmltools ) # xml utilities
library( xml2 ) # xml utilities
library( XML ) # xml utilities
library( data.tree ) # network visualization
library( networkD3 ) # network visualization
library( igraph ) # network visualization
source( "R/rdb-functions.R")
source( "R/utils.R")#######
####### DATA USED IN THE REPORT:
####### UPDATE TO MATCH TABLE
#######
index <-
tinyindex %>%
dplyr::filter( FormType %in% c("990","990EZ") )
head( index )The concordance is an RDB to XML Crosswalk that maps all xpaths onto a specified set of variables. It is located in the irs990efile package.
The full data dictionary is available on GitHub.
concordance %>%
filter( rdb_table == table.name )
# create new folder
dir.create( folder.name )
setwd( folder.name )
# create sample
sample.index <- sample_n( index, sample.size )
write.csv( index, "sample-index.csv", row.names=F )
sample.urls <- sample.index$URL
# erase existing log files
file.create("XPATH-LOG.txt")
file.create("FAIL-LOG.txt")
start.build.time <- Sys.time() # --------------------
results.list <- list()
xpath.list <- list()
for( i in 1:length( sample.urls ) )
{
url <- sample.urls[i]
results.list[[i]] <- build_rdb_table_v2( url, table.name )
xpath.list[[i]] <- get_table_xpaths( url, table.name )
if( i %% 100 == 0 ){ print(i) }
}
end.build.time <- Sys.time() # --------------------
df <- dplyr::bind_rows( results.list )
fail.log <- readLines( "FAIL-LOG.txt" )
all.xpaths <- xpath.list %>% unlist() %>% unique() %>% sort()
cat( all.xpaths, sep="\n", file="XPATH-LOG.txt" )TABLE: F9-P07-T01-COMPENSATION
## [1] "NUMBER OF RETURNS PROCESSED: 100"
## [1] "TOTAL NUMBER OF TABLE ROWS: 968"TOTAL RUN TIME:
## Time difference of 3.668819 mins
## Time difference of -0.06114699 hourswrite.csv( df, paste0( folder.name, "/", table.name, ".csv" ), row.names=F )
head(df)
Check for xpaths that were used in the tables but do not exist in the Concordance file.
c.table <- dplyr::filter( concordance, rdb_table == table.name )
xpath.concordance <- c.table$xpath
setdiff( all.xpaths, xpath.concordance )## [1] "/Return/ReturnData/IRS990/Form990PartVIISectionA"
## [2] "/Return/ReturnData/IRS990/Form990PartVIISectionAGrp"
## [3] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp"
## [4] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/ExpenseAccountOtherAllwncAmt"
## [5] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl"
## [6] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AddressUS"
## [7] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AddressUS/AddressLine1"
## [8] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AddressUS/City"
## [9] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AddressUS/State"
## [10] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AddressUS/ZIPCode"
## [11] "/Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/ExpenseAccountOtherAllowances"Capture to update the Concordance file.
these <- setdiff( all.xpaths, xpath.concordance )
cat( these, sep="\n", file=paste0( folder.name, "/MISSING-XPATHS.txt" ) )Check the status of failed URLs.
if( length(fail.log) > 0 )
{
sapply( fail.log, get_message ) %>%
table() %>%
pander()
} else {
print("ALL URLs ARE VALID")
}## [1] "ALL URLs ARE VALID"
The create_edgelist() functions v1 and v2 are in R/utils.R.
V1 retains the root nodes Return and ReturnData.
V2 drops the root nodes and uses form versions “990” and “990EZ” as the root to visualize the sets of tables separately.
# KEEP ROOT NOTES Return & ReturnData
el <- create_edgelist_v1( all.xpaths )Edgelist format:
| V1 | V2 |
|---|---|
| Return | ReturnData |
| ReturnData | IRS990 |
| IRS990 | Form990PartVIISectionAGrp |
| Form990PartVIISectionAGrp | PersonNm |
| Form990PartVIISectionAGrp | TitleTxt |
| Form990PartVIISectionAGrp | AverageHoursPerWeekRt |
| Form990PartVIISectionAGrp | IndividualTrusteeOrDirectorInd |
| Form990PartVIISectionAGrp | OfficerInd |
| Form990PartVIISectionAGrp | ReportableCompFromOrgAmt |
| Form990PartVIISectionAGrp | ReportableCompFromRltdOrgAmt |
# library( data.tree )
nd <- FromDataFrameNetwork( network=el )
print( nd )## levelName
## 1 Return
## 2 °--ReturnData
## 3 ¦--IRS990
## 4 ¦ ¦--Form990PartVIISectionA
## 5 ¦ ¦ ¦--AverageHoursPerWeek
## 6 ¦ ¦ ¦--AverageHoursPerWeekRelated
## 7 ¦ ¦ ¦--Former
## 8 ¦ ¦ ¦--HighestCompensatedEmployee
## 9 ¦ ¦ ¦--IndividualTrusteeOrDirector
## 10 ¦ ¦ ¦--InstitutionalTrustee
## 11 ¦ ¦ ¦--KeyEmployee
## 12 ¦ ¦ ¦--NamePerson
## 13 ¦ ¦ ¦--Officer
## 14 ¦ ¦ ¦--OtherCompensation
## 15 ¦ ¦ ¦--ReportableCompFromOrganization
## 16 ¦ ¦ ¦--ReportableCompFromRelatedOrgs
## 17 ¦ ¦ °--Title
## 18 ¦ °--Form990PartVIISectionAGrp
## 19 ¦ ¦--AverageHoursPerWeekRltdOrgRt
## 20 ¦ ¦--AverageHoursPerWeekRt
## 21 ¦ ¦--HighestCompensatedEmployeeInd
## 22 ¦ ¦--IndividualTrusteeOrDirectorInd
## 23 ¦ ¦--KeyEmployeeInd
## 24 ¦ ¦--OfficerInd
## 25 ¦ ¦--OtherCompensationAmt
## 26 ¦ ¦--PersonNm
## 27 ¦ ¦--ReportableCompFromOrgAmt
## 28 ¦ ¦--ReportableCompFromRltdOrgAmt
## 29 ¦ °--TitleTxt
## 30 °--IRS990EZ
## 31 ¦--OfficerDirectorTrusteeEmplGrp
## 32 ¦ ¦--AverageHrsPerWkDevotedToPosRt
## 33 ¦ ¦--CompensationAmt
## 34 ¦ ¦--EmployeeBenefitProgramAmt
## 35 ¦ ¦--ExpenseAccountOtherAllwncAmt
## 36 ¦ ¦--PersonNm
## 37 ¦ °--TitleTxt
## 38 °--OfficerDirectorTrusteeKeyEmpl
## 39 ¦--AddressUS
## 40 ¦ ¦--AddressLine1
## 41 ¦ ¦--City
## 42 ¦ ¦--State
## 43 ¦ °--ZIPCode
## 44 ¦--AvgHoursPerWkDevotedToPosition
## 45 ¦--Compensation
## 46 ¦--ContriToEmplBenefitPlansEtc
## 47 ¦--ExpenseAccountOtherAllowances
## 48 ¦--PersonName
## 49 °--TitleSetGraphStyle( nd, rankdir = "LR")
SetEdgeStyle( nd, arrowhead = "vee", color = "grey20", penwidth = 2 )
SetNodeStyle( nd,
style = "filled,rounded",
shape = "box",
fillcolor = "LightBlue",
fontname = "helvetica",
fontcolor="black",
tooltip = GetDefaultTooltip )
# SetNodeStyle(acme$IT, fillcolor = "LightBlue", penwidth = "5px")
plot( nd )# library( networkD3 )
# net <- ToDataFrameNetwork( nd, "name" )
# simpleNetwork( net, fontSize = 12 )
simpleNetwork( el, fontSize = 12 )#plot with networkD3
radnet <- ToListExplicit( nd, unname = TRUE )
radialNetwork( radnet, fontSize = 12 )
t.xpaths <-
concordance %>%
filter( rdb_table == table.name ) %>%
select( xpath ) %>%
unique() %>%
arrange() %>%
mutate( id=row_number() )
t.xpaths %>%
kable( align="l" )| xpath | id |
|---|---|
| /Return/ReturnData/IRS990/Form990PartVIISectionA/AverageHoursPerWeek | 1 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/AverageHoursPerWeekRelated | 2 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Former | 3 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/HighestCompensatedEmployee | 4 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/IndividualTrusteeOrDirector | 5 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/InstitutionalTrustee | 6 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/KeyEmployee | 7 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Name/NameBusiness/BusinessNameLine1 | 8 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Name/NameBusiness/BusinessNameLine2 | 9 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Name/NamePerson | 10 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/NameBusiness/BusinessNameLine1 | 11 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/NameBusiness/BusinessNameLine2 | 12 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/NamePerson | 13 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Officer | 14 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/OtherCompensation | 15 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/ReportableCompFromOrganization | 16 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/ReportableCompFromRelatedOrgs | 17 |
| /Return/ReturnData/IRS990/Form990PartVIISectionA/Title | 18 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/AverageHoursPerWeekRltdOrgRt | 19 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/AverageHoursPerWeekRt | 20 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/BusinessName/BusinessNameLine1 | 21 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/BusinessName/BusinessNameLine1Txt | 22 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/BusinessName/BusinessNameLine2 | 23 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/BusinessName/BusinessNameLine2Txt | 24 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/FormerOfcrDirectorTrusteeInd | 25 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/HighestCompensatedEmployeeInd | 26 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/IndividualTrusteeOrDirectorInd | 27 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/InstitutionalTrusteeInd | 28 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/KeyEmployeeInd | 29 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/OfficerInd | 30 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/OtherCompensationAmt | 31 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/PersonNm | 32 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/ReportableCompFromOrgAmt | 33 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/ReportableCompFromRltdOrgAmt | 34 |
| /Return/ReturnData/IRS990/Form990PartVIISectionAGrp/TitleTxt | 35 |
| /Return/ReturnData/IRS990/FrmrOfcrDirTrstOrKeyEmployee/BusinessName/BusinessNameLine1 | 36 |
| /Return/ReturnData/IRS990/FrmrOfcrDirTrstOrKeyEmployee/BusinessName/BusinessNameLine2 | 37 |
| /Return/ReturnData/IRS990/OfcrDirTrusteesOrKeyEmployee/BusinessName/BusinessNameLine1 | 38 |
| /Return/ReturnData/IRS990/OfcrDirTrusteesOrKeyEmployee/BusinessName/BusinessNameLine2 | 39 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/AverageHoursPerWeek | 40 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/NamePerson | 41 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/OtherCompensation | 42 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/ReportableCompFromOrganization | 43 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/ReportableCompFromRelatedOrgs | 44 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionA/Title | 45 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/AverageHoursPerWeekRt | 46 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/OtherCompensationAmt | 47 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/PersonNm | 48 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/ReportableCompFromOrgAmt | 49 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/ReportableCompFromRltdOrgAmt | 50 |
| /Return/ReturnData/IRS990EZ/Form990PartVIISectionAGrp/TitleTxt | 51 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/AverageHrsPerWkDevotedToPosRt | 52 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/BusinessName/BusinessNameLine1 | 53 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/BusinessName/BusinessNameLine1Txt | 54 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/BusinessName/BusinessNameLine2 | 55 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/BusinessName/BusinessNameLine2Txt | 56 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/CompensationAmt | 57 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/EmployeeBenefitProgramAmt | 58 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/PersonNm | 59 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeEmplGrp/TitleTxt | 60 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/AvgHoursPerWkDevotedToPosition | 61 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/BusinessName/BusinessNameLine1 | 62 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/BusinessName/BusinessNameLine2 | 63 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/Compensation | 64 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/ContriToEmplBenefitPlansEtc | 65 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/Name | 66 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/PersonName | 67 |
| /Return/ReturnData/IRS990EZ/OfficerDirectorTrusteeKeyEmpl/Title | 68 |
Identify all unique groups used in xpaths.
find_group_names_v2( table.name )## [1] "//Form990PartVIISectionA/AverageHoursPerWeek"
## [2] "//Form990PartVIISectionA/AverageHoursPerWeekRelated"
## [3] "//Form990PartVIISectionA/CompensationFromOtherSources"
## [4] "//Form990PartVIISectionA/Former"
## [5] "//Form990PartVIISectionA/FormersListedIn1A"
## [6] "//Form990PartVIISectionA/HighestCompensatedEmployee"
## [7] "//Form990PartVIISectionA/IndividualTrusteeOrDirector"
## [8] "//Form990PartVIISectionA/InstitutionalTrustee"
## [9] "//Form990PartVIISectionA/KeyEmployee"
## [10] "//Form990PartVIISectionA/Line1ATotalGT150K"
## [11] "//Form990PartVIISectionA/Name"
## [12] "//Form990PartVIISectionA/NameBusiness"
## [13] "//Form990PartVIISectionA/NamePerson"
## [14] "//Form990PartVIISectionA/NoListedPersonsCompensated"
## [15] "//Form990PartVIISectionA/NumberIndividualsGT100K"
## [16] "//Form990PartVIISectionA/Officer"
## [17] "//Form990PartVIISectionA/OtherCompensation"
## [18] "//Form990PartVIISectionA/ReportableCompFromOrganization"
## [19] "//Form990PartVIISectionA/ReportableCompFromRelatedOrgs"
## [20] "//Form990PartVIISectionA/Title"
## [21] "//Form990PartVIISectionA/TotalColumnD"
## [22] "//Form990PartVIISectionA/TotalColumnE"
## [23] "//Form990PartVIISectionA/TotalColumnF"
## [24] "//Form990PartVIISectionAGrp/AverageHoursPerWeekRltdOrgRt"
## [25] "//Form990PartVIISectionAGrp/AverageHoursPerWeekRt"
## [26] "//Form990PartVIISectionAGrp/BusinessName"
## [27] "//Form990PartVIISectionAGrp/FormerOfcrDirectorTrusteeInd"
## [28] "//Form990PartVIISectionAGrp/HighestCompensatedEmployeeInd"
## [29] "//Form990PartVIISectionAGrp/IndividualTrusteeOrDirectorInd"
## [30] "//Form990PartVIISectionAGrp/InstitutionalTrusteeInd"
## [31] "//Form990PartVIISectionAGrp/KeyEmployeeInd"
## [32] "//Form990PartVIISectionAGrp/OfficerInd"
## [33] "//Form990PartVIISectionAGrp/OtherCompensationAmt"
## [34] "//Form990PartVIISectionAGrp/PersonNm"
## [35] "//Form990PartVIISectionAGrp/ReportableCompFromOrgAmt"
## [36] "//Form990PartVIISectionAGrp/ReportableCompFromRltdOrgAmt"
## [37] "//Form990PartVIISectionAGrp/TitleTxt"
## [38] "//FrmrOfcrDirTrstOrKeyEmployee/BusinessNameLine1"
## [39] "//FrmrOfcrDirTrstOrKeyEmployee/BusinessNameLine2"
## [40] "//OfcrDirTrusteesOrKeyEmployee/BusinessNameLine1"
## [41] "//OfcrDirTrusteesOrKeyEmployee/BusinessNameLine2"
## [42] "//OfficerDirectorTrusteeEmplGrp/AverageHrsPerWkDevotedToPosRt"
## [43] "//OfficerDirectorTrusteeEmplGrp/BusinessName"
## [44] "//OfficerDirectorTrusteeEmplGrp/CompensationAmt"
## [45] "//OfficerDirectorTrusteeEmplGrp/EmployeeBenefitProgramAmt"
## [46] "//OfficerDirectorTrusteeEmplGrp/PersonNm"
## [47] "//OfficerDirectorTrusteeEmplGrp/TitleTxt"
## [48] "//OfficerDirectorTrusteeKeyEmpl/AddressForeign"
## [49] "//OfficerDirectorTrusteeKeyEmpl/AddressUS"
## [50] "//OfficerDirectorTrusteeKeyEmpl/AvgHoursPerWkDevotedToPosition"
## [51] "//OfficerDirectorTrusteeKeyEmpl/BusinessName"
## [52] "//OfficerDirectorTrusteeKeyEmpl/Compensation"
## [53] "//OfficerDirectorTrusteeKeyEmpl/ContriToEmplBenefitPlansEtc"
## [54] "//OfficerDirectorTrusteeKeyEmpl/Name"
## [55] "//OfficerDirectorTrusteeKeyEmpl/PersonName"
## [56] "//OfficerDirectorTrusteeKeyEmpl/Title"Groups can then be used to extract the 1:M RDB tables:
group.names <- find_group_names_v2( table.name )
demo.url <- "https://nccs-efile.s3.us-east-1.amazonaws.com/xml/201932329349300613_public.xml"
doc <- xml2::read_xml( demo.url )
xml2::xml_ns_strip( doc )
df.demo <- get_table_v2( doc, group.names, table.name )
df.demo ## # A tibble: 5 x 8
## PersonNm TitleTxt Avera~1 Indiv~2 Offic~3 Repor~4 Repor~5 Other~6
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 VALERIE SLEE CHAIRPERSON 20.00 X X 0 0 0
## 2 JAN HEMPSTEAD VIDE-CHAIR 20.00 X X 0 0 0
## 3 ROSEMARIE SHULTZ TREASURER 20.00 X X 0 0 0
## 4 GAIL BARBARA SECRETARY 20.00 X X 0 0 0
## 5 COURTNEY RABB FUNDRAISING ~ 20.00 X X 0 0 0
## # ... with abbreviated variable names 1: AverageHoursPerWeekRt,
## # 2: IndividualTrusteeOrDirectorInd, 3: OfficerInd,
## # 4: ReportableCompFromOrgAmt, 5: ReportableCompFromRltdOrgAmt,
## # 6: OtherCompensationAmtMapping of xml variable names to concordance variable names:
get_var_map( table.name=table.name )A table with proper names:
v.map <- get_var_map( table.name=table.name )
re_name( df.demo, v.map ) %>% as.data.frame() ## F9_07_COMP_DTK_NAME_PERS F9_07_COMP_DTK_TITLE F9_07_COMP_DTK_AVE_HOUR_WEEK
## 1 VALERIE SLEE CHAIRPERSON 20.00
## 2 JAN HEMPSTEAD VIDE-CHAIR 20.00
## 3 ROSEMARIE SHULTZ TREASURER 20.00
## 4 GAIL BARBARA SECRETARY 20.00
## 5 COURTNEY RABB FUNDRAISING CHAIR 20.00
## F9_07_COMP_DTK_POS_INDIV_TRUST_X F9_07_COMP_DTK_POS_OFF_X
## 1 X X
## 2 X X
## 3 X X
## 4 X X
## 5 X X
## F9_07_COMP_DTK_COMP_ORG F9_07_COMP_DTK_COMP_RLTD F9_07_COMP_DTK_COMP_OTH
## 1 0 0 0
## 2 0 0 0
## 3 0 0 0
## 4 0 0 0
## 5 0 0 0
Demo of functions - demo data only.
[[1]]
<Form990PartVIISectionAGrp>
<PersonNm>
{text}
<TitleTxt>
{text}
<AverageHoursPerWeekRt>
{text}
<IndividualTrusteeOrDirectorInd>
{text}
<OfficerInd>
{text}
<ReportableCompFromOrgAmt>
{text}
<ReportableCompFromRltdOrgAmt>
{text}
<OtherCompensationAmt>
{text}node.list[[1]] %>% xml_parent() %>% xmltools::xml_view_trees() (1) ------------
+-- Form990PartVIISectionAGrp
+-- PersonNm
+-- TitleTxt
+-- AverageHoursPerWeekRt
+-- IndividualTrusteeOrDirectorInd
+-- OfficerInd
+-- ReportableCompFromOrgAmt
+-- ReportableCompFromRltdOrgAmt
++-- OtherCompensationAmt
(2) ------------
+-- Form990PartVIISectionAGrp
+-- PersonNm
+-- TitleTxt
+-- AverageHoursPerWeekRt
+-- IndividualTrusteeOrDirectorInd
+-- OfficerInd
+-- ReportableCompFromOrgAmt
+-- ReportableCompFromRltdOrgAmt
++-- OtherCompensationAmt