EP
Size: a a a
EP
a
J
ЛУ
a
a
ЛУ
a
PD
selectInput
- опции во втором меняются в зависимости от того, что написано в первом через observeEvent(…, {updateSelectInput() })
. При этом эти элементы и их серверная логика вынесены в отдельный модуль.PD
PD
shinytest::ShinyDriver$new(“minimap_example.R”)
. инпуты в первом нормально ставятся, во втором - нормально обновляются.S
PD
shiny.semantic::selectInput()
. если использовать его, то не отбражаются инпуты в тесте. в дефолтном shiny::selectInput()
все работает (в самом приложении нормально работают оба).AB
rasterOptions(tmpdir = "E:/R/tempdir")
rasterOptions(todisk = TRUE)
start_img_06 <- brick("TIF/chernihivska_16_global_monthly_2020_06_mosaic.tif")
plotRGB(start_img_06, r = 1, g = 2, b = 3, axes=TRUE, main="img_06")
VARI_calc <- function(x) {
# ((x[,2]-x[,1])/(x[,2]+x[,1]-x[,3])+1)*100
((x[,2] - x[,1])/(x[,2] + x[,1] - x[,3]) + 1)*100
}
system.time( VARI_06 <- calc(start_img_06, VARI_calc) )
plot(VARI_06, main = "VARI_06", axes = FALSE, box = FALSE)
img_06 <- stack(start_img_06[[1:3]]*10, VARI_06[[1]])
writeRaster(img_06, filename="img_06.tif", format = "GTiff", datatype='INT2S', overwrite=TRUE)
на plotRGB()
еще хватает ресурсов, отображает результат.VARI_06 <- calc(start_img_06, VARI_calc)
, думает, считает, во временную папку пишет большие файлы, но потом вылетает.raster_median <- overlay(img_06, img_07, img_08, img_09, fun=median, na.rm = TRUE)
Такое даже на фрагменте данных считает долго, но с полными растрами пока даже начальные этапы пройти не получается.rasterOptions(todisk = TRUE)
Подскажите пожалуйста, как можно такие большие растры пересчитать ?Ю
DK
a
a
J