Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, message=FALSE-----------------------------------------------------
library(cubble)
library(tsibble)
library(sf)
## ----echo = TRUE--------------------------------------------------------------
ts_nested <- make_cubble(
spatial = stations, temporal = meteo_ts, coords = c(long, lat))
(ts_long <- face_temporal(ts_nested))
class(ts_long)
## ----echo = TRUE--------------------------------------------------------------
ts_long %>% has_gaps()
## ----echo = TRUE--------------------------------------------------------------
ts_long2 <- make_cubble(
stations, meteo,
key = id, index = date, coords = c(long, lat)) %>%
face_temporal() %>%
make_temporal_tsibble()
identical(ts_long2, ts_long)
## ----echo = TRUE--------------------------------------------------------------
(sf_nested <- make_cubble(
spatial = stations_sf, temporal = meteo,
key = id, index = date))
class(sf_nested)
## ----echo =TRUE, message=FALSE------------------------------------------------
sf_nested %>% sf::st_transform(crs = "EPSG:3857")
## ----echo = TRUE--------------------------------------------------------------
(sf_nested2 <- make_cubble(
stations, meteo,
key = id, index = date, coords = c(long, lat)) %>%
make_spatial_sf())
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.