tests/testthat/test_viz.R

In datasketch/GanaderiaSostenible: Carbon Capture and Biodiversity Estimations for Colombian Farms

context("Compute")

test_that("Viz",{

  # areas <- c(100, 30, 23, 459)
  # region <- "Eje Cafetero"
  # total <- carbono_capturado_estimacion(area = areas, region = region, t_e = 4, anos = 2001:2004, tipo_cobertura = 'bosque_secundario')
  # total$Suelo <- 'Bosque primario'
  # total <- total %>% select(Suelo, carbono = co2)
  # viz_bar(total)
  #
  #
  # # need to calculate proyeccion
  # d <- carbono_capturado_estimacion(area = areas, region = region, t_e = 20, anos = 2001:2004, tipo_cobertura = 'bosque_secundario')
  # d$Suelo <- 'Bosque primario'
  # d <- d %>% select(Ano = Tiempo, Suelo, carbono = co2)
  # d$carbono <- cumsum(d$carbono)
  # viz_lines(d)

})