dev/99-definicion-variables.R

In jbkunst/agrometR: For downloading meteorological data from the API of agromet.

library(tidyverse)

dvariables <- readr::read_delim(
  # "https://raw.githubusercontent.com/frzambra/agrometChile/62c23e60021e956e23945f41a79f32583fc3cef1/man/get_data.Rd?token=GHSAT0AAAAAABMWW3A6OL66ED7IFTCSMGF4YRZ5IZA",
  "https://raw.githubusercontent.com/frzambra/agrometChile/master/R/get_data.R?token=GHSAT0AAAAAABMWW3A7FGF6KITJFLUQUSDAYSEZZLA",
  skip = 10,
  n_max = 11,
  delim = "\\tab"
  )

dvariables

dvariables <- dvariables |>

  mutate(across(everything(), ~str_remove(.x, "#'"))) |>
  mutate(across(everything(), str_remove, "\\\\cr")) |>
  mutate(across(everything(), str_remove, "\\\\")) |>
  mutate(across(everything(), str_trim)) |>

  rename_with( ~ str_remove_all(.x, "#'|\\s+\\\\cr")) |>
  rename_with(str_trim)

saveRDS(dvariables, "data/definicion_variables.rds")