nc3 <- function(file, varid){
var_value <- llply(varid, function(x){
ncvar_get(nc = nc_open(file), x)
})
names(var_value) <- varid
return(var_value)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.