# NOT RUN {
ft <- read.table(header=TRUE, stringsAsFactors=FALSE, text="
type filename
data daily_kl_recent_tageswerte_KL_03987_akt.zip
stand subdaily_standard_format_kl_10381_00_akt.txt
meta daily_kl_recent_KL_Tageswerte_Beschreibung_Stationen.txt
multia multi_annual_mean_81-10_Temperatur_1981-2010_aktStandort.txt
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
radar radolan_recent_bin_raa01-rw_10000-1802020250-dwd---bin.gz
asc radolan_historical_asc_2018_RW-201809.tar
grib2 ftp_weather_nwp_cosmo-d2_005_T_2M.grib2.bz2
")
fileType(ft$filename)
stopifnot(fileType(ft$filename)==ft$type)
fileType("random_stuff.odt")
# }
Run the code above in your browser using DataLab