R/fix_row_spaces.R

In fixr: Fixing Data Made Easy for Statistical Analysis

#' Replace spaces in row names with underscores
#'
#' This function takes a data frame as an argument and replaces all spaces in
#' the row names with underscores.
#'
#' @param df A data frame
#'
#' @return A modified data frame with spaces in row names replaced by underscores.
#'
#' @examples
#' my_data <- data.frame("Column Name 1" = c(1, 2, 3), "Column Name 2" = c(4, 5, 6))
#' rownames(my_data) <- c("Row Name 1", "Row Name 2", "Row Name 3")
#'
#' fix_row_spaces(my_data)
#' # Returns a data frame with row names where spaces are replaced by underscores.
#'
#' @export
#'
fix_row_spaces <- function(df) {
  df <- as.data.frame(df)
  rownames(df) <- gsub(" ", "_", rownames(df))
  return(df)
}