inst/notes/checkfuns.R

In AustralianAntarcticDivision/raadfiles: File Database Management for 'raadtools'

funs <- list(altimetry_currents_polar_files,
altimetry_daily_files,
amps_d1files,
amps_d2files,
amps_files,
amps_model_files,
amsr2_3k_daily_files,
amsr2_daily_files,
amsr_daily_files,
amsre_daily_files,
argo_files,
#bom_tmax_daily_files,
cafe_monthly_files,
cersat_daily_files,
#cmip5_files,
cryosat2_files,
etopo1_files,
etopo2_files,
fasticefiles,
fsle_files,
gebco08_files,
gebco14_files,
gebco19_files,
geoid_files,
#george_v_terre_adelie_1000m_files,
#george_v_terre_adelie_100m_files,
#george_v_terre_adelie_250m_files,
#george_v_terre_adelie_500m_files,
ghrsst_daily_files,
ibcso_background_files,
ibcso_bed_files,
ibcso_digital_chart_files,
ibcso_files,
ibcso_sid_files,
iceclim_north_leadsfiles,
iceclim_south_leadsfiles,
kerguelen_files,
lakesuperior_files,
macquarie100m_57S_files,
macquarie100m_58S_files,
ncep2_uwnd_6hr_files,
ncep2_vwnd_6hr_files,
nsidc_daily_files,
nsidc_monthly_files,
nsidc_north_daily_files,
nsidc_north_monthly_files,
nsidc_south_daily_files,
nsidc_south_monthly_files,
oisst_daily_files,
oisst_monthly_files,
polarview_files,
ramp_files,
rema_100m_aspect_files,
rema_100m_dem_files,
rema_100m_dem_geoid_files,
rema_100m_files,
rema_100m_rock_files,
rema_100m_rugosity_files,
rema_100m_slope_files,
rema_1km_files,
rema_200m_aspect_files,
rema_200m_dem_files,
rema_200m_dem_geoid_files,
rema_200m_files,
rema_200m_rock_files,
rema_200m_rugosity_files,
rema_200m_slope_files,
rema_8m_aspect_files,
rema_8m_dem_files,
rema_8m_dem_geoid_files,
rema_8m_files,
rema_8m_rock_files,
rema_8m_rugosity_files,
rema_8m_slope_files,
rema_8m_tiles,
rema_tile_files,
seapodym_weekly_files,
smap_8day_files,
smith_sandwell_files,
smith_sandwell_lon180_files,
smith_sandwell_unpolished_files,
smith_sandwell_unpolished_lon180_files,
sose_monthly_files,
srtm_files,
thelist_files,
woa13_files)

fullname_check <- function(x) {
  "fullname" %in% names(x())
}
library(furrr)
plan(multisession)
lfiles <- future_map(funs, ~try(.x()))
purrr::map_lgl(funs, fullname_check)