R/set_metadata.R

In KWB-R/kwb.hydrus1d: R Interface for the Last Official Release of Hydrus1D (V4.17.0140) for Windows

#' Set Metadata Attributes
#'
#' @param x R object
#' @param meta_general general metadata
#' @param meta_units information about units
#' @keywords internal
#' @noMd
#' @noRd
#' @return \code{x} with attributes "meta_general" and "meta_units" being set
#'   (may be \code{NULL})
set_metadata <- function(x, meta_general, meta_units)
{
  structure(
    x,
    meta_general = meta_general,
    meta_units = meta_units
  )
}