R/strip_element.R

In jr-packages/jrTypeform: Jumping Rivers: Typeform survey generation package

#' Removing all elements with a certain name from the target
#' from data
#'
#'
#' @export
strip_element = function(list_of_data, element_name = "id") {
  list_of_data[[element_name]] = NULL
  lapply(list_of_data, function(x)
    if (is.list(x)) {
      if(!is.null(names(x))) strip_element(x[names(x)!=element_name]) else strip_element(x)
    } else x
  )
}