Preserve row order of rhandsontable in shiny app

I am running an example from here.

library(rhandsontable)
library(shiny)

runApp(shinyApp(
  ui = fluidPage(rHandsontableOutput("hot")),
  server = function(input, output, session) {
    fname <- "mtcars2.csv"
    values <- reactiveValues()
    setHot <- function(x) values[["hot"]] = x

    observe({
      if(!is.null(values[["hot"]])) write.csv(values[["hot"]], fname)
    })

    output$hot <- renderRHandsontable({
      if (!is.null(input$hot)) {
        DF <- hot_to_r(input$hot)
      } else {
        DF <- read.csv("mtcars.csv", stringsAsFactors = FALSE)
      }
      setHot(DF)
      rhandsontable(DF) %>%
        hot_table(highlightCol = TRUE, highlightRow = TRUE) %>%
        hot_cols(columnSorting = TRUE)
    })
  }
))

I want changes made to table be saved in file mtcars2.csv. I also want to preserve row order. In project home page it says "sorting only impacts the widget and will not reorder the original data set". Can I somehow get current view of a table and save it?