Delete specific rows from data frame using reactiveValues() - example

server.r

library(shiny)
shinyServer((function(input, output) {
  values <- reactiveValues(df = NULL)
  
  observeEvent(input$file, {
    values$df <- read.csv(input$file$datapath)
  })
  
  observeEvent(input$delete, {
    values$df <- values$df[-input$rowno, ]
    
    
  })
  
  output$new_df <- renderTable(values$df)
}))

ui.r

library(shiny)
shinyUI((fluidPage(
  "Delete specific rows from dataframe using reactiveValues() - example",
  br(),
  
  mainPanel(
    fileInput("file", "Upload file"),
    
    numericInput("rowno", "Delete row:", 1, step = 1),
    actionButton("delete", "Delete this row"),
    tableOutput("new_df")
  )
)))