如何调整sliderInput值以减少Shiny中的数据框？

Question

这是我在Stack Overflow上找到的一个功能强大的应用程序

rm(list = ls())
library(shiny)

# Sample Data
area    <- seq(from=10,to=100, by=10);peri <- seq(from=2710.1,to=2800.1, by=10)
shape   <- seq(from=0.1,to=1, by=0.1);perm <- seq(from=1,to=100, by=10)
my_data <- as.data.frame(cbind(area,peri,shape,perm))

ui = fluidPage(
   sidebarPanel(
   sliderInput("range", "Select Range",min = 1, max = 10, value = c(2,    
   5)),width = 4),
   mainPanel(tableOutput("view"))
)

server = function(input, output) {
 output$view <- renderTable({
test <- my_data[input$range[1]:input$range[2],]
test}, include.rownames = FALSE)
}

}

runApp(list(ui = ui, server = server)) 

我想根据列的数值缩短数据框

我尝试更改这一行：

 mydata$area <- my_data$area[input$range[1]:input$range[2]]

但是我意识到这会减少该列的行而不调整其他行以匹配相同的行数。关于如何减少其他行的任何想法？