R/properties2.R

Defines functions get_last_element get_first_element

Documented in get_first_element get_last_element

#' Create a data accessor retrieving the first element of an array
#'
#' @param property_name property name of data object
#' @return JavaScript code evaluated on the client-side
#' @export
get_first_element <- function(property_name) {
  sprintf("d => d.%s[0]", property_name) %>% JS()
}

#' Create a data accessor retrieving the last element of an array
#'
#' @inheritParams get_first_element
#' @return JavaScript code evaluated on the client-side
#' @export
get_last_element <- function(property_name) {
  sprintf("d => d.%s.slice(-1)[0]", property_name) %>% JS()
}

Try the deckgl package in your browser

Any scripts or data that you put into this service are public.

deckgl documentation built on July 1, 2020, 7:36 p.m.