R/l_path_name.R

In z267xu/loon.summary: Tour in Loon

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)
}