WBM.rar_Water balance model_shiny

################## #####RCCC-WBM##### ################## library(shiny) ui <- navbarPage("RCCC-WBM", # ---------------Introduction------------------ tabPanel("RCCC-WBM Introduction", fluidRow(column(12, wellPanel( h3("RCCC-WBM Description",align = "center") ))), fluidRow(column(12, wellPanel( p("The RCCC-WBM is a simplified hydrological model, developed by the Climate Change Research Center, Ministry of Water Resources of China. The model estimates daily or monthly stream flow from precipitation, temperature, and pan evaporation. Its advantages include a simpler structure, fewer parameters and more flexibility. The model has been successfully applied to over 200 typical catchments in China."), br(), p("Developers:Quo-qing Wang,Xiao-xiang Guan,Xiong-peng Tang",align = "right"), p("E-mail:gqwang@nhri.cn",align = "right") ))), p(em("Address:Nanjing Hydraulic Research Institute,223,Guangzhou Road,NanJing210029"),align = "center") ), tabPanel("Basin information", textInput("Basinname","Basin name | ID:", value = ""), numericInput("A", "Basin area (A)/square kilometer:", step = 50, value = 4766)), #----------Data Input------------------ tabPanel("Data input", fluidRow( column(2, wellPanel( radioButtons("Sequencetype", "Sequence type", choices = c( monthly = "monthly", daily = "daily"), selected = "monthly"), selectInput("Null", "Null value:", choices = c(-99.9,-99,NA) ,selected = -99), tags$hr(), checkboxInput("header", "Header", FALSE), checkboxInput("unit", "Unit of monthly Q:m3/s", TRUE), radioButtons("sep", "Separator", choices = c(Comma = ",", Semicolon = ";", Tab = "\t"), selected = ","), radioButtons("quote", "Quote", choices = c(None = "", "Double Quote" = '"', "Single Quote" = "'"), selected = '"'), radioButtons("disp", "Display", choices = c(Head = "head", All = "all"), selected = "head") )), column(10,wellPanel( fluidRow( column(3,wellPanel( fileInput("Precipitation", "Choose Precipitation File", multiple = TRUE, accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv")) )), column(3,wellPanel( fileInput("Evaporation", "Choose Evaporation File", multiple = TRUE, accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv")) )), column(3,wellPanel( fileInput("Qrecorded", "Choose Discharge File", multiple = TRUE, accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv")) )), column(3,wellPanel( fileInput("Temperature", "Choose Temperature File", multiple = TRUE, accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv")) )) ), fluidRow(h4("Data sequence range:",align = "center")), fluidRow( column(3, wellPanel(tableOutput("range1"))), column(3, wellPanel(tableOutput("range2"))), column(3, wellPanel(tableOutput("range3"))), column(3, wellPanel(tableOutput("range4"))) ), fluidRow(h4("Data sequence Display:",align = "center")), fluidRow( column(3,wellPanel( tableOutput("Precipitation") )), column(3,wellPanel( tableOutput("Evaporation") )), column(3,wellPanel( tableOutput("Qrecorded") )), column(3,wellPanel( tableOutput("Temperature") )) ) )) ) ) , #-------------Simulation Panel----------- tabPanel("Simulation", sidebarLayout( sidebarPanel( sliderInput("period", "Select simulation period", min = 1940, max = 2020, value = c(