在R中使用被动的“if”语句

下面是我的dataframe设备的标题及其结构

      Home Season Day Timein24 countRun Run
19262    1 Autumn   1        1        8  NA
19263    1 Autumn   1        1        8  NA
19264    1 Autumn   1        1        8  NA
19265    1 Autumn   1        1        8  NA
19266    1 Autumn   1        2        8  NA
19267    1 Autumn   1        2        8  NA
19268    1 Autumn   1        2        8  NA
19293    1 Autumn   1        2        8  NA
19290    1 Autumn   1        3        8  NA
19295    1 Autumn   1        3        8  NA
19271    1 Autumn   1        3        8  NA
19294    1 Autumn   1        3        8  NA
19272    1 Autumn   1        4        8  NA
19273    1 Autumn   1        4        8  NA
19274    1 Autumn   1        4        8  NA
19275    1 Autumn   1        4        8  NA
19236    1 Autumn   1        5        8  NA
19237    1 Autumn   1        5        8  NA
19278    1 Autumn   1        5        8  NA
19279    1 Autumn   1        5        8  NA

系带

   'data.frame':    51072 obs. of  6 variables:
     $ Home    : Factor w/ 19 levels "1","2","3","5",..: 1 1 1 1 1 1 1 1 1 1 ...
     $ Season  : chr  "Autumn" "Autumn" "Autumn" "Autumn" ...
     $ Day     : Factor w/ 7 levels "1","2","3","4",..: 1 1 1 1 1 1 1 1 1 1 ...
     $ Timein24: Factor w/ 12 levels "1","2","3","4",..: 1 1 1 1 2 2 2 2 3 3 ...
     $ countRun: num  8 8 8 8 8 8 8 8 8 8 ...
     $ Run     : num  NA NA NA NA NA NA NA NA NA NA ...

在$Season中，我有四个季节，然后在$countRun中，值是4,8,12。还粘贴了到目前为止我已经尝试过的R的UI和服务器。我面临着if声明的问题。请参阅：

ui = navbarPage("Flexible Demand", 
                tabPanel("Appliance1", 
                         fixedRow(column(width = 12, offset = 5, titlePanel("Appliance1"))),
                         fixedRow(column(width = 6, selectizeInput("Home", label = "Select Home",
                                                                   choices = c(sort(unique(appliance$Home))),
                                                                   selected = c(sort(unique(appliance$Home)))[1],
                                                                   multiple = F, width = "100%")),
                                  column(width = 6, selectizeInput("Season", label = "Select Season",
                                                                   choices = c(sort(unique(appliance$Season))),
                                                                   selected = c(sort(unique(appliance$Season)))[1],
                                                                   multiple = F, width = "100%"))),
                         fixedRow(column(width = 6, sliderInput("Day1C", label = "Day 1 - Hour to Run",
                                                                min = 1,max = 12, value = 2)), 
                                  column(width = 6, selectizeInput("Day1", label = "Day 1 - Duration (Hours)",
                                                                   choices = c(sort(unique(appliance$countRun))),
                                                                   selected = c(sort(unique(appliance$countRun)))[1],
                                                                   multiple = F, width = "100%")),
                                  mainPanel(DT::dataTableOutput("day1")))))

server = function(input, output, session){
  output$day1 = DT::renderDataTable({
    day1 = reactive({appliance[appliance$Home %in% input$Home &
                                  appliance$Season %in% input$Season,]})
    if (appliance$Timein24 != input$Day1C) {
      appliance$Run=0
    } else{appliance$Run=1}
    day1()
  })
}
shinyApp(ui = ui, server = server)

我试图实现的是，根据我在sliderInput Day1C和列Timein24中选择的内容，让Run Responsive的值成为现实。例如，如果我选择我的一天运行1小时，即sliderInput Day1C为2，则数据帧的Timein24列下所有2的运行时间应为1，而其他时间应为0

---

我希望我说的有道理。如果您需要任何进一步的详细信息，请告诉我。

这是一个快照，未经过全面测试：

server = function(input, output, session){
  day1 = reactive({
    req(input$Home, input$Season)
    appliance[appliance$Home %in% input$Home &
              appliance$Season %in% input$Season,]
  })
  output$day1 = DT::renderDataTable({
    req(day1(), input$Day1C)
    x <- day1()
    x$Run <- ifelse(x$Timein24 == input$Day1C, 1, 0)
    x
  })
}

---

1您的if只是错误的R代码：appliance$Timein24！=。。。不是长度1，if条件中的所有内容都必须始终精确为长度1。你的意思是在某处使用所有、任何或[1]吗？2不能嵌套反应块，因此第1天的定义应该是独立的，然后在renderDataTable反应块中引用第1天。3您的if代码的效果对DT中显示的数据没有影响，因为它影响设备，但第1天已经定义。@r2evans理想情况下它应该接受所有数据。你能帮助改进代码吗？