Doesn't find Path2 in data

[cebarboza]

treatmentPathways <- tibble::tribble(
  ~path, ~freq,     ~sex,    ~age, ~indexYear,
  "102",    55,    "all",   "all",      "all",
  "104",     8,    "all",   "all",      "all",
  "106",    11,    "all",   "all",      "all",
  "107",     8,    "all",   "all",      "all",
  "112",    19,    "all",   "all",      "all",
  "113",    49,    "all",   "all",      "all",
)
TreatmentPatterns::createSankeyDiagram2(treatmentPathways, groupCombinations = TRUE)
#> Error in `mutate()`:
#> ℹ In argument: `target = paste0("2.", .data$path2)`.
#> Caused by error in `.data$path2`:
#> ! Column `path2` not found in `.data`.
#> Backtrace:
#>      ▆
#>   1. ├─TreatmentPatterns::createSankeyDiagram2(treatmentPathways, groupCombinations = TRUE)
#>   2. │ └─TreatmentPatterns:::createLinkedData(data)
#>   3. │   └─TreatmentPatterns:::createLinks(data)
#>   4. │     └─... %>% select("source", "target", "freq")
#>   5. ├─dplyr::select(., "source", "target", "freq")
#>   6. ├─dplyr::mutate(...)
#>   7. ├─dplyr:::mutate.data.frame(...)
#>   8. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
#>   9. │   ├─base::withCallingHandlers(...)
#>  10. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
#>  11. │     └─mask$eval_all_mutate(quo)
#>  12. │       └─dplyr (local) eval()
#>  13. ├─base::paste0("2.", .data$path2)
#>  14. ├─path2
#>  15. ├─rlang:::`$.rlang_data_pronoun`(.data, path2)
#>  16. │ └─rlang:::data_pronoun_get(...)
#>  17. └─rlang:::abort_data_pronoun(x, call = y)
#>  18.   └─rlang::abort(msg, "rlang_error_data_pronoun_not_found", call = call)
#> Error in `mutate()`:
#> ℹ In argument: `target = paste0("2.", .data$path2)`.
#> Caused by error in `.data$path2`:
#> ! Column `path2` not found in `.data`.
#> Backtrace:
#>      ▆
#>   1. ├─TreatmentPatterns::createSankeyDiagram2(treatmentPathways, groupCombinations = TRUE)
#>   2. │ └─TreatmentPatterns:::createLinkedData(data)
#>   3. │   └─TreatmentPatterns:::createLinks(data)
#>   4. │     └─... %>% select("source", "target", "freq")
#>   5. ├─dplyr::select(., "source", "target", "freq")
#>   6. ├─dplyr::mutate(...)
#>   7. ├─dplyr:::mutate.data.frame(...)
#>   8. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
#>   9. │   ├─base::withCallingHandlers(...)
#>  10. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
#>  11. │     └─mask$eval_all_mutate(quo)
#>  12. │       └─dplyr (local) eval()
#>  13. ├─base::paste0("2.", .data$path2)
#>  14. ├─path2
#>  15. ├─rlang:::`$.rlang_data_pronoun`(.data, path2)
#>  16. │ └─rlang:::data_pronoun_get(...)
#>  17. └─rlang:::abort_data_pronoun(x, call = y)
#>  18.   └─rlang::abort(msg, "rlang_error_data_pronoun_not_found", call = call)

^{Created on 2023-11-20 with reprex v2.0.2}

[mvankessel-EMC]

Added to dev in: 0b6bf09

[mvankessel-EMC]

Added into latest CRAN release (2.6.2)