Me gustaría diseñar unas características básicas de planificación de la producción. Principalmente, trato de hacer en brillante lo que hago en Excel. Tengo un archivo que el usuario ha subido. Luego, el usuario debe ajustar nuevas cantidades que disminuyan el nivel de inventario. -en un día, múltiples ajustes- * El día se toma desde la fecha del sistema. * Se deben mostrar las nuevas líneas. Aquí están los datos de muestra:http://www.filedropper.com/data2_2

library(shiny)

shinyServer(function(input, output) {

  output$table1 <- renderTable({

    if (is.null(input$file1))
      return(NULL)
    read.csv(input$file1$datapath, header=TRUE, sep=";",
             quote='')

    })

  addData <- observe({
    if(input$action > 0) {
      f (is.null(input$file1))
      return(NULL)
      read.csv(input$file1$datapath, header=TRUE, sep=";",
               quote='')

      `uploadedfile1` <- read.csv(input$file1$datapath, sep=";")
      uploadedfile2 <- uploadedfile1

      safetystock <- 585

      ne,wLine <- isolate(c(Sys.Date(), "provided by file", input$spotQuantity, inventory, safetystock, Location2))

      isolate(uploadedfile2Plot <- rbind(as.matrix(uploadedfile2), unlist(newLine)))
      uploadedfile2 Plot
    }
  })
  })


shinyUI(fluidPage(

  sidebarLayout(
    sidebarPanel(

      fileInput('file1', 'Choose File', accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
      numericInput("Quantity", "Enter Quantity",value=0),
      actionButton("action","Confirm")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      tableOutput("table1")

    )
  )
))