R/empty_obj.R

In jkruppa/virDisco: Modules for a viral detection pipeline

##' Internal empty object for pepe mapping
##'
##' Internal empty object for pepe mapping
##' @title Internal empty object for pepe mapping
##' @param ... No parameters needed
##' @return data.frame
##' @author Jochen Kruppa
##' @export
empty_map_pep_list <- function(...){
  list(count_df = tibble(genebank_id = "",
                         count_prot = ""),
       alignment_df = tibble(qname = "",
                             prot_id = "",
                             pos_start = NA,
                             pos_end = NA,
                             genebank_id = NA,
                             ident = 0))
}