BLUE
Profile banner
TM
tj mahr
@tjmahr.com
data scientist studying how kids learn to speak, dad, jump roper, bayesian, tjmahr.com
1k followers371 following1.8k posts
TMtjmahr.com

the new tar_assign({}) will convert `x <- tar_target(command)` into `tar_target(x, command)` so you can even do something like `downstream <- upstream |> f() |> g() |> tar_target()`

r code

targets_main <- tar_assign({
  database <- tar_file("data/data.duckdb")

  data_vss_4_6_8_10 <- tar_file_read(
    "data/vss-4-6-8-10-ratings.csv",
    readr::read_csv(!!.x)
  )

  data_vss_12_14 <- tar_file_read(
    "data/vss-12-14.csv",
    readr::read_csv(!!.x) |>
      janitor::clean_names() |>
      rename(
        child = subject_initials,
        vss = viking_researcher_rating,
        rater = viking_researcher_name,
        vss_inter = viking_researcher_rating_2,
        rater_inter = viking_researcher_name_2
      ) |>
      mutate(
        age_group = ifelse(
          visit_group == "VSS Age 12", 12, 14
        ),
        vss = vss |> utils::as.roman() |> as.numeric(),
        vss_inter = vss_inter |> utils::as.roman() |> as.numeric(),
      )
  )

  data_vss <- data_vss_4_6_8_10 |>
    bind_rows(data_vss_12_14) |>
    select(
      subject_num, visit_id, child, cohort, visit_num,
      age_months, age_group, vss, rater
    ) |>
    tar_target()
})
1

AHandrew.heiss.phd

ooooooh

0
Profile banner
TM
tj mahr
@tjmahr.com
data scientist studying how kids learn to speak, dad, jump roper, bayesian, tjmahr.com
1k followers371 following1.8k posts