library(shiny)
source("common.R")
source("EdgeworthBox.R")

loadLib("nleqslv", "shiny")

ui <- fluidPage(
    titlePanel("Edgeworth Box"),

    sidebarLayout(
        sidebarPanel(
            sliderInput("A",
                "initial amount of goods A of person 1",
                min = 0.01,
                max = 0.99,
                value = 0.8), 
            sliderInput("B",
                "initial amount of goods B of person 1",
                min = 0.01,
                max = 0.99,
                value = 0.3),
            checkboxInput("isI", "Initial Point", TRUE),
            checkboxInput("isE", "Equilibrium", TRUE),
            checkboxInput("isSHP", "Separating Hyperplane", TRUE),
            checkboxInput("isCore", "Core", TRUE),
            checkboxInput("isCC", "Contract Curve", TRUE)
        ), 

        mainPanel(
            plotOutput("distPlot")
        )
    )
)

server <- function(input, output) {
    output$distPlot <- renderPlot({
        drawEdgeworthBox(input$A, input$B, CC=input$isCC, SHP=input$isSHP, I=input$isI, E=input$isE, CORE=input$isCore)
    }, width=400, height=400)
}

app <- shinyApp(ui = ui, server = server)
runApp(app)