Shiny

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    https://shiny.posit.co/
#

library(shiny)
library(plotly)
source("Comp6.R")
# Define UI for application that draws a histogram
ui <- fluidPage(
  #Titulo de la aplicación
  titlePanel("Aplicación politicas de inventario"),
  #Definir el recuadro de la aplicación
  sidebarLayout(
    #Agregar un panel lateral dentro del recuadro
    sidebarPanel(
      #crear un objeto para que el usuario modifique la demanda
      sliderInput(inputId = "TasaDemanda",
                  label = "Tasa de demanda semanal (cajas/semana)",
                  min = 0,
                  max = 30,
                  value = 15)
        
      ),
    
    #Crear el panel principal para mostrar las graficas
    mainPanel(
      #imprimir grafica de costos
      plotlyOutput(outputId = "Graf_Cost_Tot")
    )
  )
)


# Define server logic required to draw a histogram
server <- function(input, output) {
  output$Graf_Cost_Tot = renderPlotly({
    InfoCostos = Shiny_function(input$TasaDemanda)
    
    #Scatter -> crea un grafico de dispersion, mode -> Representación de los puntos
    plot_ly(InfoCostos, x = ~num_sem, y= ~cost_Sem_Pactual, name = "P. Actual", type = "scatter",
            mode = "lines+markers")%>%
      add_trace(y = ~cost_Sem_Pnueva, name = "P.nueva", mode = "lines+markers")%>%
      #con la funcion layout se etiqueta el grafico
      layout(title = "Costo por politica an las proximas 10 semanas",
             xaxis = list(title = "semana"),
             yaxis = list(title = "costo"))
  })
}

# Run the application 
shinyApp(ui = ui, server = server)