R/obs-only.R

Defines functions obs_only

obs_only <- function(new_data, data, obo) {
  data <- data[names(data) %in% obo]
  if (!ncol(data)) {
    return(new_data)
  }
  new_data %>% merge(unique(data), by = obo)
}
poissonconsulting/newdata documentation built on Jan. 18, 2024, 1:30 a.m.