Question

我正在尝试使用用户输入公式来替换我放在回归模型中的基本公式。我可以使用基本公式来运行代码而没有任何错误。我可以调出新的输入以确认reactive.New.formula或输入$ New.formula正在响应我的意图。

user input ui/input$New.formula checking

但是，当我在** **之间添加if语句以将基本输入替换为用户输入（输入$ New.formula或reactive.New.formula（））时，我收到此错误消息，'警告：[[：subscript out of bounds“中的错误。我该怎么做才能解决这个问题？我无法弄清楚出了什么问题。

error message

Server.R

reactive.New.formula <- reactive({
  formula <- NULL
  ({
    input$New.formula.upload
    isolate({
      formula <- input$New.formula
    })
  })
})

output$New.formula.out <- renderText({reactive.New.formula()})

reactive.formula <- reactive({
  df1 <- dat0()
  New.formula <- reactive.New.formula()

  source("Source/Regression.formula.R", local = TRUE)


  **if(is.null(input$New.formula)){
    formula <- formula
  }else{
    formula <- input$New.formula
  }**


  return(formula)


})

ui.R

 fluidRow(
   box(status = "primary", height = "800px",width = "6",solidHeader = F,
       h5(strong("Base Model Formula")),
       textOutput("Model.formula"),
       br(),
       textInput("New.formula", "Enter your new formula to run the model", ""), 
       actionButton("New.formula.upload", "Upload"),
       textOutput("New.formula.out")
   )
 )

闪亮的textInput替换输入公式，下标越界

0 个答案: