Spatio-temporal prediction

stangandaho · Jul 27, 2024 · e2d1792 · e2d1792
1 parent ee0366e
commit e2d1792
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/inst/nimo/server.R b/inst/nimo/server.R
@@ -1235,7 +1235,7 @@ prediction <- eventReactive(input$predict, {
 })
 ## Modal to show predict output
 predict_modal <- function(){
-  modalDialog(title = h3("Spatial predictions", style = "text-align:left;"),
+  modalDialog(title = h3("Predictions", style = "text-align:left;"),
               footer = modalButton("Ok"), size = "l",
               fluidRow(column(9,
                               shinycssloaders::withSpinner(

diff --git a/inst/nimo/ui.R b/inst/nimo/ui.R
@@ -152,7 +152,7 @@ sidebar <- shinydashboardPlus::dashboardSidebar(
              menuSubItem("Ensembling", tabName = "model_ensembling", icon = NULL)
              ),
     menuItem("Post-Modeling", tabName = "post_modeling", icon = icon("arrow-right", lib = "glyphicon"),
-             menuSubItem("Spatial predictions", tabName = "spatial_predict", icon = NULL),
+             menuSubItem("Predictions", tabName = "spatiotemporal_predict", icon = NULL),
              menuSubItem("Extrapolation ", tabName = "extrapolation", icon = NULL),
              menuSubItem("Overprediction correction", tabName = "overpredict_correct", icon = NULL)
              ),
@@ -463,7 +463,7 @@ nimo_body <- shinydashboard::dashboardBody(
               )
             )
             ),
-    tabItem("spatial_predict",
+    tabItem("spatiotemporal_predict",
             fluidPage(
               fluidRow(column(8,
                               DT::DTOutput("st_fitted_model_list_dt"),