-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
55 lines (55 loc) · 1.33 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
library()
library(raster)
library(terra)
terraOptions()
terra::.chunk
raster::.chunk
terra:::.chunk
raster:::.chunk()
raster:::.chunk
?blocks
library(gdalraster)
library(furrr)
library(future)
future::plan(multicore, workers = 3)
cube_assets <- jsonlite::read_json("/data/cbers/items.json")
cube15 <- lapply(cube_assets$features, function(feature) {
feature$assets$BAND15$href
})
#
cube15 <- do.call(rbind, cube15)
cube15
rast(cube15)
terra::sprc(cube15)
cube15
cube15 <- lapply(cube_assets$features, function(feature) {
terra::rast(feature$assets$BAND15$href)
})
#
cube15 <- do.call(rbind, cube15)
cube15
# cube_assets <- jsonlite::read_json("/data/cbers/items.json")
cube15 <- lapply(cube_assets$features, function(feature) {
terra::rast(feature$assets$BAND15$href)
})
terra::sprc(cube15)
cube15 <- terra::sprc(cube15)
fileBlocksize(cube15)
cube15[[1]]
cube15
cube15[1]
fileBlocksize(cube15[1])
cube_assets <- jsonlite::read_json("/data/cbers/items.json")
cube15 <- lapply(cube_assets$features, function(feature) {
terra::rast(feature$assets$BAND15$href)
})
cube15 <- do.call(rbind, cube15)
cube15 <- terra::sprc(cube15)
cube15 <- lapply(cube_assets$features, function(feature) {
terra::rast(feature$assets$BAND15$href)
})
terra::rast(cube15)
cube15 <- terra::sprc(cube15)
block_sizes <- terra::fileBlocksize(cube15[1])
block_sizes
r_in <- terra::readStart(cube15)