R/utils.R

In FelixErnst/tRNAdbImport: Importing from tRNAdb and mitotRNAdb as GRanges objects

Defines functions .is_non_empty_string .is_non_empty_character .is_a_bool

.is_a_bool <- function(x){
  is.logical(x) && length(x) == 1L && !is.na(x)
}

.is_non_empty_character <- function(x){
  is.character(x) && all(nzchar(x))
}

.is_non_empty_string <- function(x){
  .is_non_empty_character(x) && length(x) == 1L
}