Nothing
#' @title Determine the end of Quadrant I and III.
#'
#' @description This is an internal function to determine where to separate quadrants if
#' necessary.
#' @param data_table A symmetric input output table, a use table or a supply
#' table.
#' @param include_total Should the total (intermediary) output column be
#' included \code{TRUE} or excluded (\code{FALSE}, default)?
#' @return An integer value with the last column of Quadrant I and III. If
#' the last column is not found, \code{2} is returned with a warning to avoid
#' stopping a pipeline.
#' @keywords internal
quadrant_separator_find <- function(data_table,
include_total = FALSE) {
last_column <- 2
if ( any(c("total", "cpa_total") %in% tolower(names(data_table))) ) {
last_column <- which(tolower(names(data_table)) %in% c("total", "cpa_total") )
if ( ! include_total ) last_column <- last_column -1 #if total columns are not needed, the last but total
} else if ( any(c("households", "p13_s14") %in% tolower(names(data_table)))) {
last_column <- which(tolower(names(data_table)) %in% c("households", "p13_s14"))-1
} else if ( 'cpa_u' %in% tolower ( names (data_table)) ) {
last_column <- which(tolower(names(data_table)) =='cpa_u')
} else if ( 'cpa_t' %in% tolower (names(data_table))) {
last_column <- which(tolower(names(data_table)) =='cpa_t')
} else if ( 'cpa_s96' %in% tolower (names(data_table))) {
last_column <- which(tolower(names(data_table)) =='cpa_s96')
} else if ( 'other_services_group' %in% tolower (names(data_table))) {
last_column <- which(tolower(names(data_table)) =='other_services_group')
}
if ( last_column == 2) {
warning ( "The last column was not found")
}
last_column
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.