R/l_path_name.R

Defines functions l_path_name

l_path_name <- function(x) {
  if(inherits(x, "l_tour") || inherits(x, "l_tour_compound")) {
    attributes(x)$names[1L]
  } else if (inherits(x, "loon")) {
    if(loon::l_isLoonWidget(x))
      as.character(x)
    else character(0L)
  } else character(0L)
}
z267xu/loon.summary documentation built on March 15, 2021, 2:15 p.m.