R/loon_title.R

In great-northern-diver/loon.ggplot: A Grammar of Interactive Graphics

Defines functions loon_title.l_ts loon_title.loon loon_title

loon_title <- function(target) {
  UseMethod('loon_title', target)
}

loon_title.loon <- function(target){
  target["title"]
}

loon_title.l_ts <- function(target) {
  target[[1]]['title']
}