Я разрабатываю блестящее приложение, которое позволяет импортировать некоторые данные, манипулировать ими и наносить их на график. Если вы удовлетворены результатами анализа, вы можете сгенерировать файл .xlsx с помощью скрипта python (я использую сетку, чтобы он работал внутри блестящего приложения):
server <- function(input, output){
observeEvent(input$run_py, {
# pass variable from R to Py
py$df <- avg.spread()
py$var <- var.spread()
py_run_file('py_export_excel.py', local = FALSE, convert = FALSE)
})
}
Файл .xlsx не готово мгновенно, поэтому мне нужна другая кнопка, которая позволяет вам загрузить файл.
server <- function(input, output){
output$downloadData <- downloadHandler(
filename = "file.xlsx",
content <- function(file) {
file.copy("test.xlsx", file)
}
)}
Все работает до этого момента, но мне не нравится идея нажимать две разные кнопки, чтобы сделать только одну вещь. Я хочу иметь реактивный обработчик, который постоянно проверяет, существует ли файл, и автоматически предлагает вам загрузить его. Есть ли способ сделать следующий код реактивным?
if(file.exists("test.xlsx")) {
# download code
...
}