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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.