fileType: determine DWD file type

Description

determine which subfunction to call in readDWD() from the file extension (ext).

The first block is for observational data (overview), the second for gridded data (overview).
Click on the type for the subfunction documentation, e.g. data for readDWD.data().

type	ext	notes

data	.zip	For regular data at `dwdbase`.

meta	.txt	For Beschreibung.txt files. For zip files containing station meta information, see `readMeta()`.

multia	[SO]	[SO]: `file` ends with "Standort.txt" or contains multi_annual. Overrides `meta`.

stand	[SF]	[SF]: `file` contains "standard_format". For subdaily/standard_format files.

data	.txt.gz	For data at /CDC/derived_germany/.

pdf	.pdf	only opens `file` in default viewer.

-------

radar	.gz	For when the `file` contains a single binary file.

binary	.tar.gz	The common radolan format, as far as I can tell.

raster	.asc.gz	E.g. for seasonal data at `gridbase`.

nc	.nc.gz	For packed netcdf files.

hyras	.nc	For non-packed netcdf files.

asc	.tar	For a `file` containing asc files.

asc	.zip	For a `--grids--.zip` file containing 1 asc file.

rklim	YW*.tar	For a `file` containing bin files.

grib2	.grib2.bz2	For an nwp forecast `file`.

Usage

fileType(file)

Value

Character (vector)

Arguments

file: Filename(s) with extension.

Author

Berry Boessenkool, berry-b@gmx.de, Jul 2020

Examples

Run this code

ft <- read.table(header=TRUE, stringsAsFactors=FALSE, text="
type    filename
data    daily_kl_recent_tageswerte_KL_03987_akt.zip
meta    daily_kl_recent_KL_Tageswerte_Beschreibung_Stationen.txt
multia  multi_annual_mean_81-10_Temperatur_1981-2010_aktStandort.txt
multia  multi_annual_mean_81-10_Temperatur_1981-2010.txt
stand   subdaily_standard_format_kl_10381_00_akt.txt
deriv   derived_germany_soil_daily_historical_3987.txt.gz
pdf     DESCRIPTION_obsgermany_climate_monthly_kl_historical_en.pdf

radar   radolan_recent_bin_raa01-rw_10000-1802020250-dwd---bin.gz
binary  daily_radolan_historical_bin_2017_SF201712.tar.gz
raster  16_DJF_grids_germany_seasonal_air_temp_mean_188216.asc.gz
nc      daily_Project_TRY_humidity_RH_199509_daymean.nc.gz
hyras   monthly_hyras_de_humidity_hurs_hyras_5_2020_v5-0_de_monmean.nc
asc     radolan_historical_asc_2018_RW-201809.tar
asczip  grids_germany_annual_radiation_global_2024.zip
rklim   5_minutes_radolan_reproc_2017_002_bin_2020_YW2017.002_202006.tar
grib2   ftp_weather_nwp_cosmo-d2_005_T_2M.grib2.bz2
grib2   Project_TRY_air_temperature_mean_TT_201102.nc.bz2
")
fileType(ft$filename)

stopifnot(fileType(ft$filename)==ft$type)
berryFunctions::is.error(fileType("random_stuff.odt"), force=TRUE)

stopifnot(validFileTypes %in% ft$type)
stopifnot(ft$type %in% validFileTypes)