R/timespan_text.r

In Display-Lab/goals-of-care: VA Goals of Care Conversations Feedback

#' @title Timespan Text
#' @description Utility function to convert timepoints factor into string for title. 
#' @param timepoints character vector of all in form of "2018 Jan"
timespan_text <- function(timepoints){
  ret <- paste(first(timepoints), last(timepoints), sep=" - ")
  ret <- gsub('\\\n','', ret)
}

#' @title Date axis labeler
#' @description Utility function to convert timepoints factor into string for title. 
#' @param timepoints character vector of all in form of "2018 Jan"
date_axis_labeler <- function(timepoints){
  
  
}