knitr::opts_chunk$set(echo = TRUE)
Here we set up access to some ROMS files, ultimately it's just a file path to a NetCDF file.
library(raadtools) files <- raadtools:::cpolarfiles() aromsfile <- sprintf("/mnt/temproms/%s", basename(files$fullname[1L])) file.copy(files$fullname[1L], aromsfile)
romsdata function will read out a slice from the NetCDF file, in
aromsfile <- "/mnt/temproms/ocean_his_3101.nc" library(raster) library(angstroms) a <- romsdata(aromsfile, "u", transpose = TRUE) b <- roms_xy(aromsfile, "u", c(1, 1))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.