En seguida adjunto el código de una app en flexdashboard que podría ayudarte.
Cree dos archivos excel con una columna de datos solamente cada 1. La aplicación lee cada archivo y los muestra. Luego al dar clic en ejecutar multiplica las columnas de los dos archivos y muestra el resultado.
El paquete flexdashboard
funciona de manera similar a shiny
cuando hacer una aplicación. Hemos usado dos eventReactive
para guardar los data frames generados al leer los archivos
. En shiny
el control de objetos es un poco distinto a R normal debido a la reactividad de la aplicación, de echo el concepto de reactividad y su control es toda la base para dominar shiny
.
Como sugerencia trata de investigar mas sobre este concepto, puedes empezar leyendo la documentación de eventReactive.
Después usamos observeEvent
para indicar a shiny
que ejecute un calculo con los datos leídos al dar clic al actioButton
ejecutar.
Nota que usamos df1() y df2() para hacer el calculo, en lugar de df1
y df2
como seria en R normal. Esto también tiene que ver con el comportamiento reactivo de shiny
.
---
title: "Como ejecutar una Shiny app con un boton"
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
runtime: shiny
---
```{r global, include=FALSE}
#Cargo mis librerias y con source llamo al script que me hace todos los calculos
library(readxl)
library(DT)
library(dplyr)
```
Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
#Subo mis 2 archivos
fileInput("file1", "Archivo1", accept = ".xlsx")
fileInput("file2", "Archivo2", accept = ".xlsx")
actionButton("ejecutar", "Ejecutar")
```
Outputs
-----------------------------------------------------------------------
### Chart B
```{r}
#Muestro con Render, mis 2 archivos en la interfaz y funciona perfecto
df1<-eventReactive(input$file1,{
file <- input$file1
ext <- tools::file_ext(file$datapath)
req(file)
validate(need(ext == "xlsx", "Please upload a Excel file"))
read_excel(file$datapath, 1)
})
renderDT(df1())
```
### Chart C
```{r}
#Muestro con Render, mis 2 archivos en la interfaz y funciona perfecto
df2<-eventReactive(input$file2,{
file <- input$file2
ext <- tools::file_ext(file$datapath)
req(file)
validate(need(ext == "xlsx", "Please upload a Excel file"))
read_excel(file$datapath, 1)
})
renderDT(df2())
```
### Chart D
```{r}
#Controlamos cuando ejecutar el calculo con el actionButton
observeEvent(input$ejecutar,{
#Hacemos un calculo con las variables
aux<-data.frame(z=df1()[,1]*df2()[,1])
output$resultado<-renderDT(aux)
})
DTOutput("resultado")
```
Los cambios que tienes que hacer
En tu script seguramente ya tienes un nombre para las variables que guardan los archivos, como ejemplo digamos que ese nombre es df
. Para empezar lo que tienes que cambiar es la forma en la que creas esas variables, ya no es simplemente con read.xlsx si no que tienes que leerlo con el eventReactive
como lo muestro en la respuesta. Enseguida toda la parte del calculo que tengas en tu script debe estar dentro del observeEvent
para que se ejecute solo cuando cambie el input$ejecutar
. y último después de que creas df
, cuando lo uses tienes que cambiarlo por df()
y va a funcionar todo igual. Lo que puedes hacer es un buscar y remplazar con algún editor de texto para que lo cambie todo de una vez. Guarda tu script original antes.
observeEvent
. Se me ocurre algo comoobserveEvent(input$ejecutar,{codigo que genera el df y la salida})
, lo anterior en el server y naturalmente definir la salida también en el ui.rv$df<-renderDT({..
luego conrv$df
puedes hacer los cálculos como los haces en r normal y generar la salida. Te sugiero de nuevo compartas el todo el código como lo estas usando para hacer la app y una pequeña muestra de tus datos