R/nc_IO.R

In CUG-hydro/heatwave: What the Package Does (One Line, Title Case)

#' @export 
read_nc <- function(file, year_end = 2016) {
    dates = nc_date(file)
    inds = which(year(dates) <= year_end)
    # dates = dates[inds]
    arr <- ncread(file)$data[[1]][, , inds]
    arr
    # listk(arr, dates)
}