R/empty_data_interpolate.R

In andrew-MET/harpIO: IO functions and data wrangling for harp

# functions to create empty data for read_*_interpolate functions

empty_data_interpolate <- function(members, lead_time, empty_type = c("fcst", "obs")) {
  empty_type <- match.arg(empty_type)
  switch(
    empty_type,
    "fcst" = data.frame(
      SID              = as.integer(-999),
      lat              = -999,
      lon              = -999,
      model_elevation  = -999,
      parameter        = NA_character_,
      forecast         = NA_real_,
      member           = members,
      lead_time        = lead_time,
      stringsAsFactors = FALSE
    ),
    "obs" = data.frame(
      SID              = NA_integer_,
      lat              = NA_real_,
      lon              = NA_real_,
      elev             = NA_real_,
      stringsAsFactors = FALSE
    )
  )
}