# \donttest{
# example interpolator
data(meteoland_interpolator_example)
# temporal folder
tmp_dir <- tempdir()
# write interpolator
write_interpolator(
meteoland_interpolator_example,
file.path(tmp_dir, "meteoland_interpolator_example.nc")
)
# check file exists
file.exists(file.path(tmp_dir, "meteoland_interpolator_example.nc"))
# read it again
read_interpolator(file.path(tmp_dir, "meteoland_interpolator_example.nc"))
# }
Run the code above in your browser using DataLab