inst/DataMetProcess_Shiny/App.R

In DataMetProcess: Meteorological Data Processing

#load packages-------------------------------------
required_packages <- c(
  "shiny", "shinydashboard", "shinyjs", "shinybusy", "shinyalert",
  "shinyWidgets", "reactable", "plotly", "tidyverse", "zoo",
  "lubridate", "janitor","DataMetProcess"
)

# Função para verificar e instalar pacotes necessários
install_and_load <- function(packages) {
  for (pkg in packages) {
    if (!require(pkg, character.only = TRUE, quietly = TRUE)) {
      install.packages(pkg)
      require(pkg, character.only = TRUE, quietly = TRUE)
    }
  }
}

# Chama a função com a lista de pacotes
install_and_load(required_packages)


#load ------------------------------
#source("./inst/DataMetProcess_Shiny/functions/Load_All.R")
source("./functions/Load_All.R")
source("./materials/load_materials.R")
load_all("./")
materials <- load_materials("./")

#interface-----------------------------------------
ui <-
dashboardPage(
  dashboardHeader(
    title = "DataMetProcess"
  ),#Header
  dashboardSidebar(
    useShinyjs(),
    shinyjs::extendShinyjs(text = jscode,functions = c('disableTab','disableTabMenu','disableSubMenu','enableTab','enableTabMenu','enableSubMenu')),
    sidebarMenu(
      menuItem(
        text = "About",
        tabName = "about-menu",
        icon = icon("circle-info")
      ),#menu

      menuItem(
        text = "Download Inmet",
        tabName = "Down-Inmet",
        icon = icon("download")
      ),#menu

      menuItem(
        text = "Data Processing",
        tabName = "Data-Process",
        icon = icon("gears"),
        menuSubItem("Load File",
                    tabName = "load-file",
                    icon = icon("upload")),
        menuSubItem("Process",
                    tabName = "process",
                    icon = icon("gear"))
      ),#menu

      menuItem(
        text = "Evapotranspiration",
        tabName = "evapo-pm",
        icon = icon("water"),
        menuSubItem("Load File",
                    tabName = "load-evapo",
                    icon = icon("upload")),
        menuSubItem("Evapotranspiration calculation",
                    tabName = "proc_evapo",
                    icon = icon("droplet")
      ))#menu
    )#Sidemenu
  ),#Sidebar
  dashboardBody(
    tags$head(includeCSS(materials$css)),
    tabItems(
      tabItem(
        tabName = "about-menu",
        ui_about()
      ),#tabItem

      tabItem(
        tabName = "Down-Inmet",
        ui_down_inmet("downinmet")
      ),#tabItem

      tabItem(
        tabName = "load-file",
        ui_load_file("tableupload")
      ),#tabItem

      tabItem(
        tabName = "process",
        ui_proc()
      ),#tabItem
      tabItem(
        tabName = 'load-evapo',
        ui_eto_load("upload_evapo")
      ),#tabItem
      tabItem(
        tabName = 'proc_evapo',
        ui_eto_calc("etocalc")
      )
    )#tabItems
  )#Body
)#Page


#server--------------------------------
server <-
function(input, output,session){

  js$disableTabMenu('Plots')
  js$disableSubMenu('process')
  js$disableSubMenu('proc_evapo')

  #images
  output$logoabout <- renderImage({
    list(src = materials$logo)
  },deleteFile = FALSE)

  output$ufrpe <- renderImage({
    list(src = materials$ufrpe,
         height = "70px",width= "43px")
  },deleteFile = FALSE)

  output$uast <- renderImage({
    list(src = materials$uast,
         height = "70px",width= "70px")
  },deleteFile = FALSE)

  output$pgea <- renderImage({
    list(src = materials$pgea,
         height = "70px",width= "90px")
  },deleteFile = FALSE)

  output$capes <- renderImage({
    list(src = materials$capes,
         height = "70px",width= "76px")
  },deleteFile = FALSE)

  output$cnpq <- renderImage({
    list(src = materials$cnpq,
         height = "70px",width= "227px")
  },deleteFile = FALSE)

  output$facepe <- renderImage({
    list(src = materials$facepe,
         height = "70px",width= "196px")
  },deleteFile = FALSE)

  output$gas <- renderImage({
    list(src = materials$gas,
         height = "70px",width= "70px")
  },deleteFile = FALSE)

  serverDownInmet("downinmet")



  #process
  TableInput_ex <- serverUpload("tableupload")
  TablesInputs <- serverProcess("processtabs",TableInput_ex)
  serverCharts("ui_grafic",TablesInputs[[1]],TablesInputs[[2]],TablesInputs[[3]])

  observeEvent(TablesInputs[[3]](),{
    if(nrow(TablesInputs[[3]]())>0){
      js$enableTabMenu("Plots")
    }
  })

  #evapo
  Table_ETO <- serverUpETo("upload_evapo")
  serverEvapo("etocalc",Table_ETO)

}


#run app-------------------------------------------
shinyApp(ui = ui, server = server)