## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(MineSDG)

## -----------------------------------------------------------------------------
explore_sdg_ontology(goal = 6)

explore_sdg_ontology(domain = "biodiversity")[, c("goal", "material_topic",
                                                  "gri_reference")]

## -----------------------------------------------------------------------------
sdg_mining_ontology[sdg_mining_ontology$materiality == 5,
                    c("goal", "goal_name", "mining_domain")]

## -----------------------------------------------------------------------------
list_mining_kpis(sdg_goal = 8)

## -----------------------------------------------------------------------------
site <- demo_mine_sites[demo_mine_sites$site_id == "FE-PILB" &
                          demo_mine_sites$year == 2024, ]
result <- score_site_sdg(site)
result

## -----------------------------------------------------------------------------
result$scorecard

## -----------------------------------------------------------------------------
latest <- demo_mine_sites[demo_mine_sites$year == 2024, ]
portfolio <- do.call(rbind, lapply(seq_len(nrow(latest)), function(i) {
  s <- score_site_sdg(latest[i, ])
  data.frame(site_id = s$site_id, composite = s$composite_score,
             grade = s$grade)
}))
portfolio[order(-portfolio$composite), ]

## -----------------------------------------------------------------------------
dt <- demo_sdg_country[demo_sdg_country$indicator == "6.4.1", ]
compute_sdg_stability(dt)

## ----eval = FALSE-------------------------------------------------------------
# run_minesdg_dashboard()