Export epa_at_company_level() and `insert_row_with_na_in_risk_categ…

…ory()` (#795)

* export epa_at_company_level

* export insert_row_with_na_in_risk_category

NAMESPACE

@@ -21,6 +21,7 @@ export(emissions_profile_any_compute_profile_ranking)
 export(emissions_profile_upstream)
 export(enquo)
 export(enquos)
+export(epa_at_company_level)
 export(epa_compute_profile_ranking)
 export(example_companies)
 export(example_data_factory)
@@ -30,6 +31,7 @@ export(example_raw_ipr)
 export(example_raw_weo)
 export(exclude)
 export(extdata_path)
+export(insert_row_with_na_in_risk_category)
 export(is_tilt_profile)
 export(istr)
 export(istr_at_company_level)

R/emissions_profile.R

@@ -31,6 +31,14 @@ emissions_profile <- function(companies,
 #' @rdname emissions_profile_upstream
 emissions_profile_upstream <- emissions_profile
 
+
+#' Insert row with NA in risk category
+#'
+#' @param data A dataframe
+#'
+#' @return A dataframe
+#' @export
+#' @keywords internal
 insert_row_with_na_in_risk_category <- function(data) {
   levels <- c(risk_category_levels(), NA)
   data |>

R/epa_at_company_level.R

@@ -1,3 +1,10 @@
+#' Calculate indicator's profile output at company level
+#'
+#' @param data A dataframe
+#'
+#' @return A dataframe
+#' @export
+#' @keywords internal
 epa_at_company_level <- function(data) {
   count_of_na <- data |>
     select(all_of(cols_at_all_levels())) |>