R/pick_last_element.R

In BrianAronson/docshop: Doctor Shopping Functions

Defines functions pick_last_element

Documented in pick_last_element

#' Picks last element of input
#' @export

pick_last_element = function(x) {
  x = unlist(x)
  y = x[length(x)]
  return(y)
}