# run plot module stand-alone
if (interactive()) {
library(oceanexplorer)
library(shiny)
# data
NOAA <- get_NOAA("oxygen", 1, "annual")
# coordinates
points <- filter_NOAA(NOAA, 1, list(lon = c(-160, -120), lat = c(11, 12)))
# gui
ui <- fluidPage(plot_ui("plot"))
# server
server <-function(input, output, session) {
plot_server("plot", reactive(NOAA), reactive(points))
}
# run app
shinyApp(ui, server)
}
Run the code above in your browser using DataLab