#' Select indicators
#'
#' @description Biophysical indicators selection function
#'
#' @param x An character vector containing the column numbers from the list
#'
#' @return
#'
#' @export
#'
#' @author Caio Faro
#'
indB_sel <- function(x) {
library(dplyr)
data(IndListB)
dataB <- IndListB
selected <- mutate(dataB, selected = rowSums(select(dataB, x))) %>%
select(selected)
IndListB <- dataB$Indicators[selected > 0]
return(IndListB)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.