Desocupación

server.r

library(googleVis)
library(shiny)

arg.empleo.ciudadbsas <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo.bahia <- read.table("eph_bahiablanca.csv", sep=";", header=T)
arg.empleo.corrientes <- read.table("eph_corrientes.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)
arg.empleo <- read.table("eph_ciudadBuenosAires.csv", sep=";", header=T)

arg.empleo.ciudadbsas$Desocupacion = as.numeric(arg.empleo.ciudadbsas$Desocupacion)
arg.empleo.ciudadbsas$Actividad = as.numeric(arg.empleo.ciudadbsas$Actividad)
arg.empleo.ciudadbsas$subocupacion_no_demandante = as.numeric(arg.empleo.ciudadbsas$subocupacion_no_demandante)
arg.empleo.ciudadbsas$empleo = as.numeric(arg.empleo.ciudadbsas$empleo)
arg.empleo.ciudadbsas$subocupacion_demandante = as.numeric(arg.empleo.ciudadbsas$subocupacion_demandante)

arg.empleo.bahia$Desocupacion = as.numeric(arg.empleo.bahia$Desocupacion)
arg.empleo.bahia$Actividad = as.numeric(arg.empleo.bahia$Actividad)
arg.empleo.bahia$subocupacion_no_demandante = as.numeric(arg.empleo.bahia$subocupacion_no_demandante)
arg.empleo.bahia$empleo = as.numeric(arg.empleo.bahia$empleo)
arg.empleo.bahia$subocupacion_demandante = as.numeric(arg.empleo.bahia$subocupacion_demandante)

arg.empleo.corrientes$Desocupacion = as.numeric(arg.empleo.corrientes$Desocupacion)
arg.empleo.corrientes$Actividad = as.numeric(arg.empleo.corrientes$Actividad)
arg.empleo.corrientes$subocupacion_no_demandante = as.numeric(arg.empleo.corrientes$subocupacion_no_demandante)
arg.empleo.corrientes$empleo = as.numeric(arg.empleo.corrientes$empleo)
arg.empleo.corrientes$subocupacion_demandante = as.numeric(arg.empleo.corrientes$subocupacion_demandante)


shinyServer(
   function (input, output) {


    datasetInput <- reactive({
    switch(input$dataset,
           "Bahia Blanca" = arg.empleo.bahia,
           "Ciudad de Buenos Aires" = arg.empleo.ciudadbsas,
           "Corrientes" = arg.empleo.corrientes
	  )
    })
  
    formulaText <- reactive({
       paste("desocupacion ~", input$variable)
    })

    output$caption <- renderText({
       formulaText()
    })

    output$desPlot <- renderGvis({
       gvisScatterChart(datasetInput())
    })


   } 
)

ui.r

shinyUI(
   pageWithSidebar( 
   headerPanel("Desocupación y Empleo 2003 - 2010"),
   sidebarPanel(
       selectInput("dataset", 
           "Provincia:",
           choices = c("Bahia Blanca", "Ciudad de Buenos Aires", "Corrientes"))
   ),
   mainPanel (

 htmlOutput("desPlot")
   )
))