inst/shiny_app/ui.R

In Pintademijote/LETG_pkg:

ui <- fluidPage(
  navbarPage(title = div(img(src='index.png',style="margin-top: -15px; padding-right:0px;padding-bottom:20px", height = 70)),
             windowTitle="LETG SVM app",
    tabPanel("Model", Fluid = TRUE,
             titlePanel("SVM"),
             sidebarLayout(
               sidebarPanel(
                 h3("Add your the files"),
                 fileInput("tmin", h5("tmin")),
                 uiOutput("slider_tmin"),
                 fileInput("variables", h5("variables")),
                 # shinyFiles::shinyDirButton("directory_rast_pred",
                 #                "Patch to the folder of your rasters", 
                 #                "Please select a folder",
                 #                FALSE),
                 fileInput("tifs",
                           label="Upload tifs here",
                           multiple = TRUE),
                 h3("Tune the parameters"),
                 selectInput("kernel",  h5("Type of kernel"), choices = c("radial", "linear")),
                 numericInput("nb_cross", "Number of cross:", config$nb_cross, min = 1, max = Inf),
                 numericInput("k", "Number of k:", config$nb_k, min = 1, max = Inf),
                 numericInput("nb_seq_epsilon", "Epsilon Step:", config$epsilon_step, min = 0, max = 1, step = 0.01),
                 sliderInput(inputId = "seq_epsilon",
                             label = "Epsilon:",
                             min = 0,
                             max = 1,
                             value = c(0, 1)),
                 sliderInput(inputId = "seq_cost",
                             label = "Cost:",
                             min = config$cost_min,
                             max = config$cost_max,
                             value = c(-3, 8)),
                 h3("Parallelize"),
                 numericInput("nb_core", "Number of thread(s) to use:", 1, min = 1, max = parallel::detectCores(), 1),
                 shinyWidgets::switchInput(inputId = "parallelize", value = FALSE),
                 br(),
                 actionButton("run", "Run Analysis"),
                 uiOutput("report_b")
               ),
               mainPanel(
                 uiOutput("date_pred") %>% 
                   shinycssloaders::withSpinner(color = "#0dc5c1"),
                 uiOutput("variable_pred") %>% 
                   shinycssloaders::withSpinner(color = "#0dc5c1"),
                 plotly::plotlyOutput("hist_x") %>% 
                   shinycssloaders::withSpinner(color = "#0dc5c1"),
                 plotly::plotlyOutput("plot_var") %>% 
                   shinycssloaders::withSpinner(color = "#0dc5c1"),
                 leafletOutput("pred_map", width = "100%", height = 600) %>% 
                   shinycssloaders::withSpinner(color = "#0dc5c1")
               )
             )

    )
    # tabPanel("Predictions", Fluid=TRUE,
    #          titlePanel("Predictions"),
    #          sidebarLayout(
    #            sidebarPanel(
    #              shinyDirButton("directory_rast_pred",
    #                             "Patch to the folder of your rasters", "Please select a folder",
    #                             FALSE),
    #              selectInput("date_pred",  h5("Date"), choices = NULL)
    #            ),
    #            mainPanel(
    #              leafletOutput("pred_map", width = "100%", height = 600) %>% withSpinner(color="#0dc5c1")
    #            )
    #          )
    # )
  )
)