R/has_tissue.R

In kdors/rfishnet2: Exploratory Data Analysis for FishNet2 Data

#' Filter a set of records downloaded from FishNet2 by Tissue column
#'
#' Filters data returned by a FishNet2 search for records that include tissue information.
#'
#' @export
#' @param input A dataframe in FishNet2 standard format (by using read.csv())
#' @param verbose Print progress and information messages. Default: TRUE
#' @return Filtered dataset with records that do not have a blank tissue value
#'
#' # summarize occurrence records
#'
#' @examples
#' has_tissue(louisiana,TRUE)
#'
has_tissue <- function(input, verbose = TRUE){
  output <- subset(input, is.na(input$Tissues) == FALSE)
  total <- length(output$Tissues)
  if(verbose == TRUE){
    print("Records with tissues: ")
    print(total)
  }
  return(output)
}