#' Segmenting African Market From African Development Bank Group
#' @details
#' List of available segments
#' @export
afr_list_segment <- function() {
y <- list(
title = "List of available segments",
segment1 = c("climate.change","agriculture","economic", "water"),
segment2 = c("education","energy","environment", "transport", "private sector"),
segment3 = c("health","information","infrastructure","gender","human")
)
print(y)
}
#' Segmenting African Market From African Development Bank Group
#'@export
afr_sct_value <- function (segment){
sct <- tolower(stringr::str_trim(segment))
val <- NULL
if(sct == "climate.change" || sct == "climate_change" || sct == "climate"){val <- "climate-change"}
else if(sct == "agriculture"){val <- "agriculture-agro-industries"}
else if(sct == "economic" || sct == "economy"){val <- "economic-financial-governance"}
else if(sct == "education"){val <- "education"}
else if(sct == "energy"){val <- "energy-power"}
else if(sct == "environment"){val <- "environment"}
else if(sct == "human"){val <- "human-capital-development"}
else if(sct == "health"){val <- "health"}
else if(sct == "information"){val <- "information-communication-technology"}
else if(sct == "infrastructure"){val <- "infrastructure"}
else if(sct == "gender"){val <- "gender"}
else if(sct == "transport"){val <- "transport"}
else if(sct == "water"){val <- "water-supply-sanitation"}
else if(sct == "private.sector" || sct == "private_sector" || sct == "private" ){val <- "private-sector"}
else {val <- NULL }
return (val)
}
#' Segmenting African Market From African Development Bank Group
#' @details
#' List of the status of projects
#' @export
afr_project_st <- function(){
st <- c("ongoing","approved","lending","pipeline")
return(st)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.