argofile <- system.file("extdata/argo/MD5903593_001.nc", package = "tidync")
argodata <- tidync(argofile) %>% hyper_filter(N_LEVELS = index < 5) %>%
hyper_array(select_var = c("TEMP_ADJUSTED", "PRES"))
print(argodata)
Run the code above in your browser using DataLab