如何使情节对用户输入做出反应？

Question

在下面的超级简单 MWE 代码中，我试图使绘图对用户滑块输入“句点”做出反应。 我已经尝试了observeEvent的各种迭代，但没有运气。 有人可以帮我做这个反应吗？

该图应该在 y 轴上显示endBal ，在 x 轴上显示periods 。

此外，在下面的 MWE 代码行中， res <- Reduce(f,seq(periods),init=beginBal,accumulate=TRUE)没有从滑块输入中获取周期值。 为了让 MWE 运行演示，我必须在代码顶部的“定义向量”部分手动定义periods变量（例如， periods <- 5 ）。 知道为什么这部分不起作用吗？

library(shiny)

### Define vectors ##############################################################
beginBal       <- 1000
yield_vector   <- c(0.30,0.30,0.30,0.30,0.30,0.28,0.26,0.20,0.18,0.20)
npr_vector     <- c(0.30,0.30,0.30,0.30,0.30,0.30,0.30,0.30,0.30,0.30)
mpr_vector     <- c(0.20,0.20,0.20,0.20,0.20,0.20,0.20,0.20,0.20,0.20)
default_vector <- c(0.10,0.10,0.10,0.10,0.10,0.09,0.08,0.07,0.06,0.05)
### End define vectors ##########################################################

ui <- fluidPage(
  sliderInput(inputId = "periods",
              label = "Periods:",
              min = 1,
              max = 10,
              value = 5),
  plotOutput(outputId = "balancePlot")
  ) # close fluid page

server <- function(input,output){

  ### Generates data for plotting ###############################################
  f      <- function(x,y){x*(1+npr_vector[y]-mpr_vector[y]-default_vector[y]/12)}
  res    <- Reduce(f,seq(periods),init=beginBal,accumulate=TRUE)
  b      <- head(res,-1)
  endBal <- res[-1]
  ### End data for plotting ##################################################### 
    
  output$balancePlot <- renderPlot({plot(endBal)})
  
  } # close server

shinyApp(ui = ui, server = server)

Answer 1

试试这个

output$balancePlot <- renderPlot({
    f      <- function(x,y){x*(1+npr_vector[y]-mpr_vector[y]-default_vector[y]/12)}
    res    <- Reduce(f,seq(input$periods),init=beginBal,accumulate=TRUE)
    b      <- head(res,-1)
    endBal <- res[-1]
    plot(endBal)
  })