Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
warning = FALSE,
message = FALSE
)
library(cubble)
## -----------------------------------------------------------------------------
make_cubble(spatial = stations, temporal = meteo,
key = id, index = date, coords = c(long, lat))
## ----echo = TRUE--------------------------------------------------------------
(res <- make_cubble(spatial = stations_sf, temporal = meteo_ts))
class(res)
class(res$ts[[1]])
## -----------------------------------------------------------------------------
climate_flat %>% as_cubble(key = id, index = date, coords = c(long, lat))
## ----echo = TRUE--------------------------------------------------------------
path <- system.file("ncdf/era5-pressure.nc", package = "cubble")
raw <- ncdf4::nc_open(path)
as_cubble(raw)
## ----echo = TRUE, eval = FALSE------------------------------------------------
# as_cubble(raw, vars = "q",
# long_range = seq(-180, 180, 1), lat_range = seq(-90, 90, 1))
## -----------------------------------------------------------------------------
tif <- system.file("tif/L7_ETMs.tif", package = "stars")
x <- stars::read_stars(tif)
x %>% as_cubble()
## -----------------------------------------------------------------------------
dt <- climate_flat %>%
sf::st_as_sf(coords = c("long", "lat"), crs = sf::st_crs("OGC:CRS84")) %>%
sftime::st_as_sftime()
dt %>% as_cubble(key = id, index = date)
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.