#andmete allatoomine

# setwd("C:/Users/avork/Documents/CITIS/lisandvaartus")
# source("https://raw.githubusercontent.com/AndresVork/rsdmx_esa/master/rsdmx_esa_fn.R")
# em008 <- rsdmx_esa("EM008")
# saveRDS(em008, file="em008")
# em008 <- readRDS(file="em008")
# andmedjoonisele <- em008 %>%  filter(DIM3label.et=="Kokku") %>% mutate(Aasta=as.numeric(obsTime), 
#                                                     Tegevusala=DIM2label.et, 
#                                                     Indikaator= DIM4label.et, 
#                                                     Vaartus = obsValue) %>% 
#   select(Aasta, Tegevusala, Indikaator, Vaartus)
# saveRDS(andmedjoonisele, file="andmedjoonisele")
andmedjoonisele <- readRDS(file="andmedjoonisele")

#andmedjoonisele %>%  filter(Aasta==2016, Indikaator=="Tööviljakus hõivatu kohta lisandväärtuse alusel, tuhat eurot", !is.na(Vaartus)) %>% 
#  arrange(Vaartus) %>%  tail(20) %>% arrange(-Vaartus) %>%  select(Tegevusala)


library(shiny)
library(ggplot2)
library(dplyr)

ui <- fluidPage(
  
  # Application title
  titlePanel("Lisandväärtuse näitajad"),
  
  # Vali sektorid
  sidebarLayout(
    sidebarPanel(
      selectInput("tegevusalad", "Vali tegevusalad joonisele",  sort(unique(andmedjoonisele$Tegevusala)), selected ="Tegevusalad kokku",multiple = T),
      selectInput("naitaja", "Vali näitaja",  unique(andmedjoonisele$Indikaator), selected ="Kogutootlikkus lisandväärtuse alusel",multiple = F),
      #selectInput("naitajatabel", "Vali edetabeli näitaja",  unique(andmedjoonisele$Indikaator), selected ="Lisandväärtus, tuhat eurot",multiple = F),
      "Allikas: ESA, tabel EM008"
    ),
    
    mainPanel(
      plotOutput("tase"),
      plotOutput("muutus"),
      br(),
      "2015. aasta andmete põhjal järjestatud",
      br(),
      DT::dataTableOutput(outputId = "andmed", width = '600px')
    )
  )
)

server <- function(input, output) {
  output$tase <- renderPlot({
    
    andmedjoonisele %>% filter(Tegevusala %in% input$tegevusalad, Indikaator %in% input$naitaja) %>% 
      ggplot(aes(x=Aasta, y=Vaartus,color=Tegevusala)) +
      geom_line() + labs(title="Tase")
  })
  
  output$muutus <- renderPlot({
    andmedjoonisele %>% 
      filter(Tegevusala %in% input$tegevusalad, Indikaator %in% input$naitaja) %>% 
      group_by(Tegevusala) %>% 
      arrange(Indikaator, Aasta) %>% 
      mutate(Vaartusgr=(Vaartus/dplyr::lag(Vaartus, 1)-1)*100)  %>% 
      ungroup() %>% 
      ggplot(aes(x=Aasta, y=Vaartusgr,color=Tegevusala)) +
      geom_line() + labs(title="Aastane suhteline muutus, %", y="")
  })
  
  output$andmed <- DT::renderDataTable({
    DT::datatable(data= andmedjoonisele %>%  filter(Aasta==2015, Indikaator %in% input$naitaja, !is.na(Vaartus)) %>% 
       arrange(-Vaartus) %>%  select(Tegevusala, Aasta, Vaartus)
        )
  })
  
}

shinyApp(ui = ui, server = server)


# temp <- andmedjoonisele %>% 
#   filter(Tegevusala =="Tegevusalad kokku", Indikaator== "Lisandväärtus, tuhat eurot") %>% 
#   arrange(Indikaator, Aasta) %>% 
#   mutate(Vaartusgr=Vaartus/dplyr::lag(Vaartus, 1)-1) %>% 
#   ggplot(aes(x=Aasta, y=Vaartusgr,color=Tegevusala)) +
#   geom_line()