if (interactive()) {
library(shiny)
library(raster)
kili_data <- system.file("extdata", "kiliNDVI.tif", package = "cubeview")
kiliNDVI <- stack(kili_data)
cube = cubeView(kiliNDVI)
ui = fluidPage(
cubeViewOutput("cube", width = 300, height = 300)
)
server = function(input, output, session) {
output$cube <- renderCubeView(cube)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab