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

## ----eval=FALSE---------------------------------------------------------------
# head(list_sdg_indicators())

## ----eval=FALSE---------------------------------------------------------------
# list_sdg_indicators(goal = 15)

## ----eval=FALSE---------------------------------------------------------------
# validate_sdg_indicator("15.3.1")

## ----eval=FALSE---------------------------------------------------------------
# validate_sdg_indicator("15.3.1", goal = 15)

## ----eval=FALSE---------------------------------------------------------------
# dt <- fetch_sdg_country_data(
#   indicator = "15.3.1",
#   country = "IND",
#   year_range = c(2015, 2020)
# )
# 
# head(dt)

## ----eval=FALSE---------------------------------------------------------------
# dt_goal <- fetch_sdg_country_data(
#   goal = 15,
#   country = "IND",
#   year_range = c(2015, 2020)
# )
# 
# head(dt_goal)

## ----eval=FALSE---------------------------------------------------------------
# fetch_sdg_country_data(
#   indicator = "15.3.1",
#   country = "IND",
#   year_range = c(2015, 2020),
#   save = TRUE
# )

## ----eval=FALSE---------------------------------------------------------------
# ./data/sdg_downloads/

## ----eval=FALSE---------------------------------------------------------------
# trend <- analyze_sdg_trend(dt)
# trend

## ----eval=FALSE---------------------------------------------------------------
# stability <- compute_sdg_stability(dt)
# stability

## ----eval=FALSE---------------------------------------------------------------
# benchmark <- benchmark_sdg_performance(dt)
# benchmark

## ----eval=FALSE---------------------------------------------------------------
# convergence <- analyze_sdg_convergence(dt)
# convergence

## ----eval=FALSE---------------------------------------------------------------
# summary_text <- generate_sdg_executive_summary(trend, benchmark)
# cat(summary_text)

## ----eval=FALSE---------------------------------------------------------------
# plot_sdg_trend(dt)
# plot_sdg_benchmark(benchmark)
# plot_sdg_volatility(stability)
# plot_sdg_convergence(dt)

## ----eval=FALSE---------------------------------------------------------------
# map_sdg_to_mining_domain(indicator = "15.3.1")

## ----eval=FALSE---------------------------------------------------------------
# dt <- fetch_sdg_country_data(indicator = "15.3.1", country = "IND")
# generate_mining_risk_profile(dt, indicator = "15.3.1")

## ----eval=FALSE---------------------------------------------------------------
# risk_profile <- generate_mining_risk_profile(
#   data = dt,
#   indicator = "15.3.1"
# )
# 
# risk_profile

## ----eval=FALSE---------------------------------------------------------------
# index <- generate_mining_esg_index(
#   data = dt_multi,
#   indicators = c("6.4.1", "13.2.2", "15.3.1"),
#   weighting_method = "domain_weighted"
# )
# 
# index

## ----eval=FALSE---------------------------------------------------------------
# plot_mining_esg_index(index)