#' Shortening column names for hydrological variables
#'
#' Shortening column names of hydrological parameters to improve the readability of downloaded dataset and removing duplicated column names
#'
#' @param data downloaded dataset with original column names
#' @param col_names three types of column names possible: "short" - default, values with shorten names, "full" - full English description, "polish" - original names in the dataset
#' @param remove_duplicates whether to remove duplicated column names (default TRUE - i.e., columns with duplicated names are deleted)
#' @export
#'
#' @examples \donttest{
#' monthly <- hydro_monthly(year = 1969)
#' colnames(monthly)
#' abbr <- hydro_shortening(data = monthly, col_names = "polish", remove_duplicates = TRUE)
#' head(abbr)
#' }
#'
hydro_shortening <- function(data, col_names = "short", remove_duplicates = TRUE){
if (col_names != "polish"){
abbrev <- imgw::hydro_abbrev
orig_columns <- trimws(gsub("\\s+", " ", colnames(data))) # remove double spaces
matches <- match(orig_columns, abbrev$fullname)
matches <- matches[!is.na(matches)]
if (col_names == "short"){
# abbrev english
colnames(data)[orig_columns %in% abbrev$fullname] <- abbrev$abbr_eng[matches]
}
if (col_names == "full"){
# full english names:
colnames(data)[orig_columns %in% abbrev$fullname] <- abbrev$fullname_eng[matches]
}
}
# removing duplicated column names: (e.g. station's name)
if (remove_duplicates == TRUE) {
data <- data[, !duplicated(colnames(data))]
}
return(data)
} # end of function
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.