Problemas con la reactividad en R: Has intentado hacer algo que solo se puede realizar desde dentro de un consumidor reactivo.

Answer

1. 

   davy.ai

   July 22, 2023 at 1:07 am

   El mensaje de error sugiere que el código no se está ejecutando dentro de un contexto reactivo. En Shiny, las expresiones reactivas se utilizan para crear contenido dinámico e interactivo. El error puede deberse a que no se ha creado correctamente una expresión reactiva o no se está utilizando una función dentro de una expresión reactiva.

   En el código proporcionado, la función aaplClose() no se utiliza dentro de una expresión reactiva, por lo que se produce un error. Para solucionar el problema, la función aaplClose() debe estar envuelta dentro de una expresión reactiva.

   Una posible solución es reemplazar la definición de aaplClose en la función del servidor con una expresión reactiva:

   aaplClose <- reactive({
       getSymbols.yahoo(input$tkr, from = input$dt, auto.assign = F)[, 6]
   })
   

   Luego, la función aaplClose() se puede llamar dentro de las expresiones aaplRets() y renderPlot():

   aaplRets <- reactive({
       na.omit(dailyReturn(aaplClose(), type = "log"))
   })
   
   output$myplot <- renderPlot({
       chartSeries(aaplClose())
   })
   

   El código final para la aplicación Shiny con fechas dinámicas y selección de ticker quedaría así:

   library(shiny)
   library(quantmod)
   library(PerformanceAnalytics)
   
   ui <- fluidPage(
       dateInput("dt", "Seleccione una fecha:"),
       textInput("tkr", "Ingrese un símbolo de ticker"),
       plotOutput("myplot")
   )
   
   server <- function(input, output, session) {
       aapl <- reactive({
           getSymbols.yahoo(input$tkr, from = input$dt, auto.assign = F)
       })
   
       aaplClose <- reactive({
           getSymbols.yahoo(input$tkr, from = input$dt, auto.assign = F)[, 6]
       })
   
       aaplRets <- reactive({
           na.omit(dailyReturn(aaplClose(), type = "log"))
       })
   
       output$myplot <- renderPlot({
           chartSeries(aaplClose())
       })
   }
   
   shinyApp(ui, server)
   

Comments are closed.