问闪亮应用中的结构服务器功能

EN

library(ggplot2)
**Pdmm** <- 125                 # numeric input in shiny
**IndiceTorrencial** <- 10      # slider between 8 and 12 in shiny 
DuracionAgua <- 24
IntervaloMin <- 60
IntervaloTiempo <- IntervaloMin/60
Intervalos <- DuracionAgua/IntervaloTiempo
t <- seq(1,Intervalos,IntervaloTiempo)
DF <- data.frame(t)
DF$I <- (**Pdmm**/24)*(**IndiceTorrencial**)^(((28^0.1)-(DF$t^0.1))/((28^0.1)-1)) # equation where the reactive values are running
DF$Pacu <- DF$t*DF$I
DF$Pmm <- c(DF$Pacu[1], diff(DF$Pacu, lag = 1))
DF$mm <- c(DF$Pmm[23],DF$Pmm[21],DF$Pmm[19],DF$Pmm[17], DF$Pmm[15],DF$Pmm[13],DF$Pmm[11],DF$Pmm[9],DF$Pmm[7],DF$Pmm[5],DF$Pmm[3],DF$Pmm[1],DF$Pmm[2],DF$Pmm[4],DF$Pmm[6],DF$Pmm[8],DF$Pmm[10],DF$Pmm[12],DF$Pmm[14],DF$Pmm[16],DF$Pmm[18],DF$Pmm[20],DF$Pmm[22],DF$Pmm[24])
ggplot(DF,aes(x=t,y=mm)) + geom_bar(stat = "identity",fill = "dodgerblue",color = "black") + scale_x_continuous(name = "t(h)", breaks = seq(1,24,1)) + scale_y_continuous(name = "mm")

ui <- basicPage(
  sliderInput(inputId = "coefTo",
              label = h3("Torrentiality Coefficient"),
              value = 10, min = 8, max = 12),
  numericInput(inputId = "PmmS",
               label = h3("Areal Precipitation"),
               value = 100),
  imageOutput("plot")
)

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

  data <- reactive({
    DuracionAgua <- 24
    IntervaloMin <- 60
    IntervaloTiempo <- IntervaloMin/60
    Intervalos <- DuracionAgua/IntervaloTiempo
    t <- seq(1,Intervalos,IntervaloTiempo)
    DF <- data.frame(t) 
    DF$I <- (input$PmmS/24)*(input$coefTo)^(((28^0.1)-(DF$t^0.1))/((28^0.1)-1))
    DF$Pacu <- DF$t*DF$I
    DF$Pmm <- c(DF$Pacu[1], diff(DF$Pacu, lag = 1))
    DF$mm <- c(DF$Pmm[23],DF$Pmm[21],DF$Pmm[19],DF$Pmm[17], DF$Pmm[15],DF$Pmm[13],DF$Pmm[11],DF$Pmm[9],DF$Pmm[7],DF$Pmm[5],DF$Pmm[3],DF$Pmm[1],DF$Pmm[2],DF$Pmm[4],DF$Pmm[6],DF$Pmm[8],DF$Pmm[10],DF$Pmm[12],DF$Pmm[14],DF$Pmm[16],DF$Pmm[18],DF$Pmm[20],DF$Pmm[22],DF$Pmm[24])
    DFm <- DF$mm

    return(DFm)

  })

  output$plot <- renderPlot({
    ggplot(data(DFm),aes(x=t,y=mm)) + geom_bar(stat = "identity",fill = "dodgerblue",color = "black") + scale_x_continuous(name = "t(h)", breaks = seq(1,24,1)) + scale_y_continuous(name = "mm")
  })

}