inst/elisios/server.R

In Flavjack/elisios: Interactive apps for calcutlation the crop water requirements

# elisios -----------------------------------------------------------------

library(shiny)
library(shinydashboard)
library(dplyr)
library(plotly)
library(tibble)
library(DT)
library(leaps)
library(scatterplot3d)
library(flashClust)
library(lubridate)



shinyServer(function(input, output) {


# manual update -----------------------------------------------------------

metdata <-  eventReactive(input$reload, {

  file <-   elisios::getData(dir = input$wtdt)

  file <- file %>%
    dplyr::mutate(ETo = elisios::PenMon(data = file, date = "date",
      Tmin = "Tmin", Tmax = "Tmax",
      RHmin = "RHmin", RHmax = "RHmax",
      sunshine = "sunshine", wind = "wind",
      lat = "latitude", alt = "altitude", Hws = "Hws")) %>%
    dplyr::mutate(date = zoo::as.Date(date)) %>%
    dplyr::mutate(ETo = round(ETo,2))

    }, ignoreNULL = FALSE)


# Plot metdata ------------------------------------------------------------


  output$wtplot <- plotly::renderPlotly({

    file <- metdata()

    file <- file %>%
      dplyr::select(-latitude, -altitude, -Hws) %>%
      dplyr::mutate(date = zoo::as.Date(date))%>%
      tidyr::gather(key = variable , value = value,  -date)


    ax <- list(
      title = "",
      type = "date",
      tickformat = "%d-%b",
      tickmode = "auto"
     )

    ay <- list(
      title = "",
      type = "linear",
      tickmode = "auto"
    )

    lgd <- list(

      orientation = "h",
      xanchor = "auto"

      )


    plotly::plot_ly(file, x = ~date, y = ~value,
            color = ~variable, symbol = ~variable) %>%
      plotly::add_lines() %>%
      plotly::layout(xaxis = ax, yaxis = ay, legend =  lgd)

  })


# Data frame in the screen ------------------------------------------------


  output$gss <- renderUI({

    gss <- tags$iframe(src = input$wtdt ,
                       style="height:450px; width:100%; scrolling=no")

    print(gss)

  })


# Crop dataframe ----------------------------------------------------------

cropdt <- reactive({


  stg1 <- tibble::data_frame( crop = input$crop,
                              date = (input$pdate:(input$pdate+ input$st1)),
                              stage = "initial",
                              DAP = 0:input$st1,
                              Kc = input$kc1,
                              CD = input$cd1,
                              ID = input$id1
  )

  stg2 <- tibble::data_frame( crop = input$crop,
                              date = ((input$pdate+input$st1+1):(input$pdate+input$st1+input$st2)),
                              stage = "develop",
                              DAP = (input$st1+1):(input$st1+input$st2),
                              Kc = input$kc2,
                              CD = input$cd2,
                              ID = input$id2
  )


  stg3 <- tibble::data_frame( crop = input$crop,
                              date = ((input$pdate+input$st1+input$st2+1):(input$pdate+input$st1+input$st2+input$st3)),
                              stage = "mid",
                              DAP = (input$st1+input$st2+1):(input$st1+input$st2+input$st3),
                              Kc = input$kc3,
                              CD = input$cd3,
                              ID = input$id3
  )


  stg4 <- tibble::data_frame( crop = input$crop,
                              date = ((input$pdate+input$st1+input$st2+input$st3+1):(input$pdate+input$st1+input$st2+input$st3+input$st4)),
                              stage = "end",
                              DAP = (input$st1+input$st2+input$st3+1):(input$st1+input$st2+input$st3+input$st4),
                              Kc = input$kc4,
                              CD = input$cd4,
                              ID = input$id4
  )


  cdt <- rbind(stg1, stg2, stg3, stg4) %>%
    dplyr::mutate(date = zoo::as.Date(date), Da = input$sden, FC = input$fc, WP = input$wp) %>%
    as.data.frame()


  })


# merge table --------------------------------------------------------------


cpt <- reactive({

  file1 <- cropdt()
  file2 <- metdata()

  crop <- dplyr::left_join(file1, file2) %>%
    dplyr::mutate(ETc = Kc*ETo) %>%
    dplyr::mutate(Ni = ((FC-WP)/100)*Da*(1-CD/100)*ID) %>%
    dplyr::mutate(Bi =  Ni/(input$ire/100) ) %>%
    dplyr::select(crop, date, DAP, stage, Kc, ETo, ETc, Ni, Bi) %>%
    dplyr::mutate(
      ETo = round(ETo, 2),
      ETc =  round(ETc, 2),
      Ni = round(Ni, 2),
      Bi = round(Bi,2)

      )

# input$area  input$irs :: need to use


})


# Table formated ----------------------------------------------------------


  output$crop <- DT::renderDataTable({


    file <- cpt()


    DT::datatable(file,
                  # filter = list(position = 'top', clear = FALSE),
                  extensions = 'Scroller',
                  rownames=FALSE,
                  options = list(
                    autoWidth = TRUE,
                    columnDefs = list(list(className = 'dt-center', targets ="_all")),
                    searching = FALSE,
                    deferRender=TRUE,
                    scrollY = 500,
                    scroller = TRUE,
                    initComplete = DT::JS(
                      "function(settings, json) {",
                      "$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
                      "}")
                    ))



  })




})