Level 5 Organization Type Codes:
-In the new system, code levels 2-4 (LEV234) are the same as the original NTEE system except organizational type has been changed from a LEV34 code designation (x01-x19) to an independent feature (the LEV5 column).
+In the new system, code levels 2-4 are the same as the original NTEE system except organizational type has been changed from a LEV34 code designation (x01-x19) to an independent feature (the LEV5 column).
@@ -130,8 +130,8 @@ Definitions
diff --git a/widgets/ntee_tables/ntee_descriptions.qmd b/widgets/ntee_tables/ntee_descriptions.qmd
index c273c65..ba0fdc9 100644
--- a/widgets/ntee_tables/ntee_descriptions.qmd
+++ b/widgets/ntee_tables/ntee_descriptions.qmd
@@ -11,6 +11,7 @@ library( DT )
library( readr )
library( dplyr )
library( kableExtra )
+library( reactable )
```
```{r}
@@ -54,7 +55,7 @@ df$LEV5[ div == "19" ] <- "NS"
df$LEV5[ as.numeric(div2) >= 2 ] <- "RG"
-df$LEV5[ div == "" ] <- "LEV2-MG"
+df$LEV5[ div == "" ] <- "Major Group"
fix_org_type <- function( div34, d ) {
div <- substr( df$ntee, 2, 3 )
@@ -117,12 +118,27 @@ df$LEV1[ major.group == "Z" ] <- "UNU"
df <- df[ c("LEV1","ntee","LEV5","description","definition") ]
+# Terminology Revisions
+df$definition[ df$ntee == "P82" ] <- "Organizations that provide or coordinate a wide variety of programs and services for people with developmental disabilities."
-# Rename Variables
+df$definition[ df$ntee == "G25" ] <- "Voluntary health organizations active in the prevention or treatment of Down Syndrome, a hereditary condition that results in intellectual disability."
+
+df$definition[ df$ntee == "H25" ] <- "Organizations that conduct research which can be used to improve the prevention, diagnosis and treatment of Down Syndrome, a hereditary condition that results in intellectual disability."
+
+# Wrangle Data
df <-
df %>%
- dplyr::rename( "LEV234" = ntee,
+ dplyr::mutate(LEV1 = as.factor(LEV1),
+ LEV5 = as.factor(LEV5),
+ description = stringr::str_replace(
+ description,
+ "<.*>",
+ ""
+ )) %>%
+ dplyr::rename( "Level 1" = LEV1,
+ "Levels 2-4" = ntee,
+ "Level 5" = LEV5,
"Category Name" = description,
"Category Description" = definition )
@@ -138,8 +154,19 @@ write.csv( df, "nteev2-descriptions.csv", row.names=F )
```{r}
#| echo: false
-DT::datatable( df, filter="top", rownames=FALSE,
- options = list( pageLength = 5 ) )
+DT::datatable( df,
+ filter="top",
+ rownames=FALSE,
+ options = list( pageLength = 10,
+ autoWidth = TRUE,
+ columnDefs = list(
+ list(
+ width = "80px",
+ targets = c( 0, 1, 2 )
+ ), list(
+ width = "150px",
+ targets = c(3)
+ ))))
```