-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #47 from ncss-tech/WRB2022
World Reference Base for Soil Resources (4th Edition, 2022)
- Loading branch information
Showing
11 changed files
with
2,052 additions
and
18 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,105 @@ | ||
| ## code to prepare `WRBs_4th_2022` dataset goes here | ||
| library(pdftools) | ||
|
|
||
| ## SETUP | ||
| ## | ||
| # dir.create("misc/WRB2022") | ||
| # download.file("https://wrb.isric.org/files/WRB_fourth_edition_2022-12-18.pdf", | ||
| # destfile = "misc/WRB2022/WRB_fourth_edition_2022-12-18.pdf") | ||
|
|
||
| ## does not work for RSG/qualifiers; tables used in formatting | ||
| ## can be used for definitions of diagnostics and qualifiers | ||
| # x <- pdf_text("misc/WRB2022/WRB_fourth_edition_2022-12-18.pdf") | ||
| # x <- unlist(strsplit(x, "\n")) | ||
| # ldx <- cumsum(grepl("Key to the Reference Soil Groups", x)) | ||
| # y <- split(x, ldx) | ||
| # data.frame(y[[11]]) |> View() | ||
|
|
||
| ## nope | ||
| # x <- pdf_data("misc/WRB2022/WRB_fourth_edition_2022-12-18.pdf") | ||
| # y <- do.call('rbind', x) | ||
| # | ||
|
|
||
| x <- readLines("misc/WRB2022/WRB_RSG.txt") | ||
| x <- gsub("\u003c", "<", gsub("\u003E", ">", gsub("\u2264", "<=", gsub("\u2265", ">=", x)))) | ||
| n <- grep("^[A-Z]+$", x) | ||
| z.names <- x[n] | ||
| x <- x[-n] | ||
| idx <- grep("^(Soils having|Other soils)", x) | ||
| ldx <- rep(FALSE, length(x)) | ||
| ldx[idx] <- TRUE | ||
| xx <- split(x, cumsum(ldx)) | ||
| z <- lapply(xx, function(y) { | ||
| i <- grep("(; (and|or)|\\.|:)$", y) + 1 | ||
| i <- i[i < length(y)] | ||
| l <- rep(FALSE, length(y)) | ||
| l[i] <- TRUE | ||
| sapply(split(y, cumsum(l)), paste0, collapse = " ") | ||
| }) | ||
| names(z) <- z.names | ||
|
|
||
| wrb_rsg <- do.call('rbind', lapply(seq(z), function(i) { | ||
| data.frame(code = i, reference_soil_group = z.names[i], criteria = z[[z.names[i]]]) | ||
| })) | ||
| rownames(wrb_rsg) <- NULL | ||
| # View(wrb_rsg) | ||
|
|
||
| x <- readLines("misc/WRB2022/WRB_PQ.txt") | ||
| n <- grep("^[A-Z]+$", x) | ||
| z.names <- x[n] | ||
| x <- x[-n] | ||
| idx <- grep("Principal qualifiers", x) | ||
| ldx <- rep(FALSE, length(x)) | ||
| ldx[idx] <- TRUE | ||
| xx <- split(x, cumsum(ldx)) | ||
| z <- lapply(xx, function(y) { | ||
| y <- trimws(gsub("([^ ])/ ", "\\1 / ", y)) | ||
| y[y != "Principal qualifiers"] | ||
| }) | ||
| names(z) <- z.names | ||
|
|
||
| wrb_pq <- do.call('rbind', lapply(seq(z), function(i) { | ||
| pq <- lapply(strsplit(z[[z.names[i]]], "/"), trimws) | ||
| pg <- lapply(seq(pq), function(j) rep(z[[z.names[i]]][j], length(pq[[j]]))) | ||
| data.frame(code = i, | ||
| reference_soil_group = z.names[i], | ||
| qualifier_group = unlist(pg), | ||
| principal_qualifiers = unlist(pq)) | ||
| })) | ||
| rownames(wrb_pq) <- NULL | ||
| # View(wrb_pq) | ||
|
|
||
| x <- readLines("misc/WRB2022/WRB_SQ.txt") | ||
| n <- grep("^[A-Z]+$", x) | ||
| z.names <- x[n] | ||
| x <- x[-n] | ||
| idx <- grep("Supplementary qualifiers", x) | ||
| ldx <- rep(FALSE, length(x)) | ||
| ldx[idx] <- TRUE | ||
| xx <- split(x, cumsum(ldx)) | ||
| z <- lapply(xx, function(y) { | ||
| y <- trimws(gsub("([^ ])/ ", "\\1 / ", y)) | ||
| y[y != "Supplementary qualifiers"] | ||
| }) | ||
| names(z) <- z.names | ||
|
|
||
| wrb_sq <- do.call('rbind', lapply(seq(z), function(i) { | ||
| sq <- lapply(strsplit(z[[z.names[i]]], "/"), trimws) | ||
| sg <- lapply(seq(sq), function(j) rep(z[[z.names[i]]][j], length(sq[[j]]))) | ||
| data.frame(code = i, | ||
| reference_soil_group = z.names[i], | ||
| qualifier_group = unlist(sg), | ||
| supplementary_qualifiers = unlist(sq)) | ||
| })) | ||
| rownames(wrb_sq) <- NULL | ||
| # View(wrb_sq) | ||
|
|
||
| WRB_4th_2022 <- list( | ||
| rsg = wrb_rsg, | ||
| pq = wrb_pq, | ||
| sq = wrb_sq | ||
| ) | ||
|
|
||
| stopifnot(all(sapply(WRB_4th_2022, function(x) max(x$code)) == 32)) | ||
|
|
||
| usethis::use_data(WRB_4th_2022, overwrite = TRUE) |
Binary file not shown.
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,5 +1,5 @@ | ||
| *.json | ||
| subgroups.tgz | ||
| .Rproj.user | ||
| .Rhistory | ||
| *.Rproj | ||
| WRB2022/WRB_fourth_edition_2022-12-18.pdf |
Oops, something went wrong.