Как получить реактивные данные в Radiant в блестящем приложении

Question

У меня есть блестящее приложение, в котором я хотел бы использовать некоторые функции Radiant. У меня есть набор данных (который является реактивным) уже в приложении [shiny][1], и я хотел бы, чтобы он был загружен по умолчанию вместо diamonds набор данных. Есть ли простой способ сделать это? Я думаю, мне нужно сделать что-то вроде input$dataset<-RV$data, где RV$data - это набор данных по умолчанию, который я хочу. Но куда бы я положил этот код?

Я посмотрел на код global.R, где инициализируются наборы данных, и, похоже, он обнаруживает сохраненные файлы:

df_names <- getOption("radiant.init.data", default = c("diamonds", "titanic"))
  for (dn in df_names) {
    if (file.exists(dn)) {
      df <- load(dn) %>% get()
      dn <- basename(dn) %>%
        {gsub(paste0(".", tools::file_ext(.)), "", ., fixed = TRUE)}
    } else {
      df <- data(list = dn, package = "radiant.data", envir = environment()) %>% get()
      r_info[[paste0(dn, "_lcmd")]] <- glue::glue('{dn} <- data({dn}, package = "radiant.data", envir = environment()) %>% get()\nregister("{dn}")')
    }
    env[[dn]] <- df
    if (!bindingIsActive(as.symbol(dn), env = env)) {
      makeReactiveBinding(dn, env = env)
    }
    r_info[[paste0(dn, "_descr")]] <- attr(df, "description")
  }
  r_info[["datasetlist"]] <- basename(df_names)
  r_info[["url"]] <- NULL
  r_info
}

Однако, поскольку файлы данных создаются после запуска блестящего приложения, я не думаю, что эта часть кода актуальна, поскольку она просто загружает приложение с наборами данных по умолчанию.

Затем я попытался посмотреть, смогу ли я добавить наборы данных к r_info.

Должен существовать простой способ загрузки наборов реактивных данных, которые уже существуют в блестящем приложении, без необходимости загружать их, а затем повторно загружать их, используя часть приложения Radiant? ..