R/ncdump.R

In Schuch666/hackWRF: Functions to Work with WRF, NetCDF and Model Evaluation

#' Print a 'ncdum -h' command
#'
#' @description Read a NetCDF and print the medatada
#'
#' @param file file name
#'
#' @import ncdf4
#'
#' @export
#'
#' @examples
#' ncdump(file = paste0(system.file("extdata",package="hackWRF"),'/wrfinput_d01'))
#'

ncdump <- function(file = file.choose()){
  n <- NULL
  on.exit(ncdf4::nc_close(n))
  n <- ncdf4::nc_open(file)
  print(n)
}