如何在闪亮的应用程序中刷新Rdata对象

我的目的是当用户确认通过闪亮警报弹出窗口重新加载数据集时刷新.Rdata对象。下面是一个小例子。在加载应用程序之前，我已经创建并保存了2个对象（DatasetNumber1和DatasetNumber2），其中包含要显示的标签和数据。

启动应用程序时，DatasetNumber1由于global.R文件的缘故，我默认情况下加载对象。因此，现在可以通过AND来访问test和中的data对象（这不是我的示例，而是在我的完整应用程序中）。我希望用户能够通过下拉菜单选择其他数据集，以刷新全局R对象，并最终绘制。DatasetNumber1server.Rui.R

print我在下拉列表中选择了另一个数据集后，在server.R中的语句单击了Load按钮，并通过Shinyalert进行了验证，确认该下拉列表输入已更改，但该load语句未刷新R对象。

我试图在global.R脚本中直接进行响应式加载，但结果还是一样。渲染速度可能比加载速度快，因此不会考虑更新的数据来渲染...

无论如何，我都不想重新加载应用程序或会话。

谢谢 ！

＃inputCreation.R

test <- "IamDatasetNumber1"
data <- c(1, 3, 6, 4, 9)
save(test, data, file = "./Test/DatasetNumber1.Rdata")

test <- "IamDatasetNumber2"
data <- c(2, 7, 9, 12, 13)
save(test, data, file = "./Test/DatasetNumber2.Rdata")

＃global.R

library(shiny)
library(shinyjs)
library(shinyalert)

load("DatasetNumber1.Rdata")

＃ui.R

shinyUI(
  fluidPage(
    useShinyjs(),
    div(
        id = "main_page",
        fluidRow( # -------------------------------------------------------
                  column(
                    2, offset=0,
                    selectInput("dropdown_dataset", "Dataset :", choices=c("DatasetNumber1", "DatasetNumber2"), selected="DatasetNumber1")
                  ),
                  column(
                    1, offset=0,
                    useShinyalert(),
                    actionButton("button_dataset", "Load"),
                  )
        ),
        fluidRow( # -------------------------------------------------------
                  uiOutput("test_text")
        ),
        fluidRow( # -------------------------------------------------------
                  plotOutput("test_plot")
        )
    )
  )
)

＃server.R

shinyServer(
  function(input, output, session) {
    
    observeEvent(input$button_dataset, {
      shinyalert(title = "Are you sure?",
                 text = "This action can take a while",
                 type = "warning",
                 closeOnEsc = TRUE,
                 closeOnClickOutside = TRUE,
                 showCancelButton = TRUE,
                 showConfirmButton = TRUE,
                 confirmButtonText = "OK",
                 confirmButtonCol = "#AEDEF4",
                 cancelButtonText = "Cancel",
                 inputId = "shinyalert",
                 callbackR = function(x){
                   if(x){
                     showModal(modalDialog("Loading...", footer=NULL))
                     print(paste(input[["dropdown_dataset"]],sep=""))
                     load(paste(input[["dropdown_dataset"]],".Rdata",sep=""))
                     removeModal()
                   }
                 }
      )
    })
    output$test_text <- renderText(test)
    output$test_plot <- renderPlot(plot(data))
  }
)