data-raw/processNewbornWeightLength.R

In nutriverse/intergrowth: An R Implementation of the INTERGROWTH-21st Standards and Tools

## Libraries

library(pdftools)
library(stringr)

options(stringsAsFactors = FALSE)

################# Weight-length ratio for gestational age (centile) ############

pdfLinkBoys<- "https://media.tghn.org/medialibrary/2017/03/GROW_Newborn-WLR-ct-boys_Table.pdf"

tempBoys <- pdftools::pdf_text(pdf = pdfLinkBoys)
tempBoys <- stringr::str_split(string = tempBoys, pattern = "\n")

## Page 1
temp1 <- tempBoys[[1]][8:42]

p1 <- NULL

for(i in 1:length(temp1)) {
  x <- stringr::str_split(string = temp1[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p1 <- data.frame(rbind(p1, x))
}

## Page 2
temp2 <- tempBoys[[2]][8:42]

p2 <- NULL

for(i in 1:length(temp2)) {
  x <- stringr::str_split(string = temp2[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p2 <- data.frame(rbind(p2, x))
}

## Concatenate
p <- data.frame(rbind(p1, p2))
p <- data.frame(p, sex = 1)
names(p) <- c("week", "day", "3rd", "5th", "10th", "50th", "90th", "95th", "97th", "sex")

pBoys <- p

##
pdfLinkGirls<- "https://media.tghn.org/medialibrary/2017/03/GROW_Newborn-WLR-ct-girls_Table.pdf"

tempGirls <- pdftools::pdf_text(pdf = pdfLinkGirls)
tempGirls <- stringr::str_split(string = tempGirls, pattern = "\n")

## Page 1
temp1 <- tempGirls[[1]][8:42]

p1 <- NULL

for(i in 1:length(temp1)) {
  x <- stringr::str_split(string = temp1[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p1 <- data.frame(rbind(p1, x))
}

## Page 2
temp2 <- tempGirls[[2]][8:42]

p2 <- NULL

for(i in 1:length(temp2)) {
  x <- stringr::str_split(string = temp2[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p2 <- data.frame(rbind(p2, x))
}

## Concatenate
p <- data.frame(rbind(p1, p2))
p <- data.frame(p, sex = 2)
names(p) <- c("week", "day", "3rd", "5th", "10th", "50th", "90th", "95th", "97th", "sex")

pGirls <- p

## Concatenate boys and girls data.frame
p <- data.frame(rbind(pBoys, pGirls))

names(p) <- c("week", "day", "3rd", "5th", "10th", "50th", "90th", "95th", "97th", "sex")
row.names(p) <- 1:nrow(p)

## create tidy format table
wlr_gestage_term_centile <- tidyr::pivot_longer(data = p,
                                                cols = "3rd":"97th",
                                                names_to = "centile",
                                                values_to = "wlr")

usethis::use_data(wlr_gestage_term_centile, overwrite = TRUE, compress = "xz")

################# Weight-length ratio for gestational age (z-score) ############

pdfLinkBoys<- "https://media.tghn.org/medialibrary/2017/03/GROW_Newborn-WLR-zs-boys_Table.pdf"

tempBoys <- pdftools::pdf_text(pdf = pdfLinkBoys)
tempBoys <- stringr::str_split(string = tempBoys, pattern = "\n")

## Page 1
temp1 <- tempBoys[[1]][8:42]

p1 <- NULL

for(i in 1:length(temp1)) {
  x <- stringr::str_split(string = temp1[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p1 <- data.frame(rbind(p1, x))
}

## Page 2
temp2 <- tempBoys[[2]][8:42]

p2 <- NULL

for(i in 1:length(temp2)) {
  x <- stringr::str_split(string = temp2[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p2 <- data.frame(rbind(p2, x))
}

## Concatenate
p <- data.frame(rbind(p1, p2))
p <- data.frame(p, sex = 1)
names(p) <- c("week", "day", "-3SD", "-2SD", "-1SD", "0", "1SD", "2SD", "3SD", "sex")

pBoys <- p

##
pdfLinkGirls<- "https://media.tghn.org/medialibrary/2017/03/GROW_Newborn-WLR-zs-girls_Table.pdf"

tempGirls <- pdftools::pdf_text(pdf = pdfLinkGirls)
tempGirls <- stringr::str_split(string = tempGirls, pattern = "\n")

## Page 1
temp1 <- tempGirls[[1]][8:42]

p1 <- NULL

for(i in 1:length(temp1)) {
  x <- stringr::str_split(string = temp1[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p1 <- data.frame(rbind(p1, x))
}

## Page 2
temp2 <- tempGirls[[2]][8:42]

p2 <- NULL

for(i in 1:length(temp2)) {
  x <- stringr::str_split(string = temp2[i], pattern = "[\ \\+]", simplify = TRUE)
  x <- x[x != ""]
  p2 <- data.frame(rbind(p2, x))
}

## Concatenate
p <- data.frame(rbind(p1, p2))
p <- data.frame(p, sex = 2)
names(p) <- c("week", "day", "-3SD", "-2SD", "-1SD", "0", "1SD", "2SD", "3SD", "sex")

pGirls <- p

## Concatenate boys and girls data.frame
p <- data.frame(rbind(pBoys, pGirls))

names(p) <- c("week", "day", "-3SD", "-2SD", "-1SD", "0", "1SD", "2SD", "3SD", "sex")
row.names(p) <- 1:nrow(p)

## create tidy format table
wlr_gestage_term_sd <- tidyr::pivot_longer(data = p,
                                           cols = "-3SD":"3SD",
                                           names_to = "sd",
                                           values_to = "wlr")

usethis::use_data(wlr_gestage_term_sd, overwrite = TRUE, compress = "xz")