inst/doc/cb2create.R

In cubble: A Vector Spatio-Temporal Data Structure for Data Analysis

## ---- 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)