R/count_variables_per_observation.R

In nicohuttmann/pOmics: Framework for proteomics data analysis

#' Performs analysis
#'
#' @param data_ data list
#' @param data.name name of data to use
#' @param plot results
#'
#' @return
#' @export
#'
#' @importFrom magrittr %>%
#'
#'
count_variables_per_observation <- function(data_, data.name = "raw_data", plot = T) {

  # Check input
  if (!hasArg(data_)) stop("No data list given.")

  # Check input type
  if (!is.list(data_)) stop("Given data is not a list.")

  # Check data list
  if (!data.name %in% names(data_)) stop("Data could not be found. Please specify correct <data.name>.")


  # Get data
  data <- data_[[data.name]]

  # Count identifications
  data <- data %>%
    dplyr::rowwise() %>%
    dplyr::mutate(count = sum(dplyr::c_across(where(is.logical))), .after = where(is.character))


  # Put data back
  data_[[data.name]] <- data

  # Plot results
  if (plot) data_[["plot"]] <- plot_gg_bar(data, x = "observations", y = "count")


  # Return
  return(invisible(data_))

}