Сохранение блестящей памяти (загрузка данных)

Question

Уважаемые люди,

Я хотел бы получить некоторую помощь относительно сохранения и загрузки данных.Я создал shinyapp, где создается rhandsontable и пользователь может ввести значение.Однако проблема в том, что когда я закрываю окно и повторно запускаю код, я не получаю введенные пользователем значения, а значения по умолчанию.Это означает, что я не могу сохранить или восстановить старую информацию.Не могли бы вы помочь мне с этим кодом, так как я очень плохо знаком с этой платформой.Я приложил код моей программы.Пожалуйста, помогите мне с проблемой.Моя цель - когда я закрою и перезапущу программу, я смогу увидеть ранее введенные значения.

 library(shiny)
 library(shinyFiles)
 library(readr)
 library(shinydashboard)
 library(rhandsontable)
header<-dashboardHeader()

sidebar <- dashboardSidebar()

#Creation of Tabs

body <- dashboardBody(
tabBox( width=12,
            tabPanel("Table",
                     rHandsontableOutput("hot"),
                     br(),
                     br(),
                     actionButton("save","Save changes")
            ),

            tabPanel("Demand/Capacity Plot",
                     plotOutput("dc","Demand Capacity Plot",width="50%", height="700px")
            )
    )
  )

  ui <- dashboardPage(header,sidebar=sidebar,body=body)

  # Creation empty dataframe table_l1

  table_l1<data.frame(Months=1:14,Bt_existing=numeric(14),
  Output_hr=numeric(14),stringsAsFactors = FALSE)

  #To make the dataframe reactive
  server <- function(input, output, session){
  prev_tabl_l1 <- reactive({table_l1})
  aftch_tabl_l1<- reactive({

  if (is.null(input$hot)){
   return(prev_tabl_l1())

      } else if(!identical(prev_tabl_l1(),input$hot)){
        table_l1<-as.data.frame(hot_to_r(input$hot))
        table_l1[,3]<-3600/table_l1[,2]
        table_l1 
      }
    })


# Creation of rHandsontable
output$hot <- renderRHandsontable({
  rhandsontable (aftch_tabl_l1(),rowHeaders =c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec","Year 1","year 2"),width= 500, height=200,selectCallback = TRUE) %>%

 hot_table(rowHeaderWidth = 200) %>%
 hot_col(1,readOnly = TRUE)

})

}

 shinyApp(ui=ui, server=server)