rename function

kalashsinghal · kalashsinghal · commit 28e22b2edf46 · 2024-06-03T08:22:59.000+02:00
diff --git a/R/add_thresholds_transition_risk.R b/R/add_thresholds_transition_risk.R
@@ -47,7 +47,7 @@ add_thresholds_transition_risk <- function(emissions_profile_products,
   ) |>
     create_tr_benchmarks_tr_score(.data$profile_ranking, .data$reductions) |>
     distinct() |>
-    add_transition_risk_thresholds(.by = "benchmark_tr_score")
+    add_low_high_transition_risk_thresholds(.by = "benchmark_tr_score")
 }
 
 #' Calulate `transition_risk_score` and `benchmark_tr_score` columns
@@ -73,7 +73,7 @@ create_tr_benchmarks_tr_score <- function(data, profile_ranking, reduction_targe
   )
 }
 
-add_transition_risk_thresholds <- function(data, .by) {
+add_low_high_transition_risk_thresholds <- function(data, .by) {
   mutate(data,
     transition_risk_low_threshold = quantile(.data$transition_risk_score,
       probs = c(1 / 3, 2 / 3),

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ add_thresholds_transition_risk <- function(emissions_profile_products,`
`47`	`47`	`) \|>`
`48`	`48`	`create_tr_benchmarks_tr_score(.data$profile_ranking, .data$reductions) \|>`
`49`	`49`	`distinct() \|>`
`50`		`- add_transition_risk_thresholds(.by = "benchmark_tr_score")`
	`50`	`+ add_low_high_transition_risk_thresholds(.by = "benchmark_tr_score")`
`51`	`51`	`}`
`52`	`52`
`53`	`53`	#' Calulate `transition_risk_score` and `benchmark_tr_score` columns
`@@ -73,7 +73,7 @@ create_tr_benchmarks_tr_score <- function(data, profile_ranking, reduction_targe`
`73`	`73`	`)`
`74`	`74`	`}`
`75`	`75`
`76`		`-add_transition_risk_thresholds <- function(data, .by) {`
	`76`	`+add_low_high_transition_risk_thresholds <- function(data, .by) {`
`77`	`77`	`mutate(data,`
`78`	`78`	`transition_risk_low_threshold = quantile(.data$transition_risk_score,`
`79`	`79`	`probs = c(1 / 3, 2 / 3),`