ess_gui.Rmd

---
title: "Eurostat"
output: 
   html_document:
    theme: spacelab
runtime: shiny
---

</br>

## Tutki

"Aloitin kirjoittamaan ESS-datan dynaamita käyttöliittymää" 


```{r, echo=FALSE, eval=TRUE, fig.height=12, eval=TRUE}
    source("data_arvot.R")
    source("funktiot.R")

shinyApp(
  ui = fluidPage(
    
      #sidebarLayout(
    
    inputPanel(
      
          selectInput("var", h4("Variaabeli"),
            choices = list("imsmetn" = "df$imsmetn",
                           "imdfetn" = "df$imdfetn",
                           "impcntr" = "df$impcntr",
                           "imbgeco" = "df$imbgeco",
                           "imueclt" = "df$imueclt",  
                           "imwbcnt" = "df$imwbcnt",
                           "freehms" = "df$freehms")),

              uiOutput("ui"),
          

    
              submitButton("Päivitä!", icon("refresh"))
      
      ),
                  
                  
        tabsetPanel(
                  tabPanel("Raakadatan eka rivit", verbatimTextOutput("raaka")),         
#                   tabPanel("Aikasarjadata", tableOutput("taulukko")), 
                   tabPanel("histogrammi", plotOutput("hist", width="100%", height="800"))#,
#                   tabPanel("Kartan data", tableOutput("kartta_data")), 
#                   tabPanel("Kartta", plotOutput("kartta", width="100%", height="800"))
                  
      )
    #)
    ),
  
  server = function(input, output) {
    
    
        dataInput <- reactive({
            load("data/ess_arvot.rda")
            df <- ess_arvot
            df
            })
      
        output$ui <- renderUI({
            
                  df <- dataInput()
                  # levels
                  bar <- function(x) as.character(eval(parse(text=x)) )
                  variable <- as.factor(bar(input$var))
                  levelit <- levels(variable)
                  checkboxGroupInput("col1", h5("Subset"),
                                choices = levelit)
                  
                  })
 
    output$raaka <- renderPrint({
                  df <- dataInput()
                  bar <- function(x) as.character(eval(parse(text=x)) )
                  variable <- bar(input$var)
                  #variable[c(input$col1)]
                  head(variable[!(variable %in% input$col1)], 20)
                  #as.data.frame(variable)
      })
    
    output$hist <- renderPlot({
                  df <- dataInput()
                  bar <- function(x) as.character(eval(parse(text=x)) )
                  variable <- bar(input$var)
                  #variable[c(input$col1)]
                  var <- variable[!(variable %in% input$col1)]
                  library(ggplot2)
                  qplot(var)
      })
    


},
options = list(height = 1500))
    
  
```


 col1 <- "Allow a few"