Question

我正在尝试计算Shiny中数据框中的一个新变量，该变量是在另一个变量上有条件地计算的。

以下是我正在尝试做的一个小例子：

mydata <- data.frame(cbind(x = 1, y = 1:10))
value <- 10 #from user input
mydata$z[mydata$y >= 5] <- mydata$y[mydata$y >= 5] + value
mydata$z[mydata$y < 5] <- mydata$y[mydata$y < 5] - value

这是我的ui.R文件：

#Library
library("shiny")

# Define UI for miles per gallon application
shinyUI(pageWithSidebar(

  # Application title
  headerPanel("Test"),

  sidebarPanel(
    numericInput("value", "Enter Value:", 10)
  ),

  mainPanel(
    tableOutput("table")
  )
)
)

这是我的server.R文件：

#Libraries
library(shiny)

#Load Data
mydata <- data.frame(cbind(x = 1, y = 1:10))

# Define server logic
shinyServer(function(input, output) {

  mydata$z[mydata$y >= 5] <- reactive({
    mydata$y + input$value
  })

  mydata$z[mydata$y < 5] <- reactive({
    mydata$y - input$value
  })

  output$table <- renderTable({
    mydata
  })

})

使用此Shiny代码，我收到以下错误：

mydata $ z [mydata $ y＆gt; = 5]＆lt; - reactive（{：invalid 向量分配中的类型/长度（闭包/ 0）

我尝试了不同的子集化和分配方式，但我陷入困境。非常感谢您的帮助！

Answer 1

我不确定你对reactive()正在做什么有所了解...我建议你阅读更多shiny文档，特别是要看一下例子 - '03_reactivity'可能是一个很好的例子。

无论如何，这里是您的代码如何适应您想要的。这不是最好的方法，但希望它能帮助你看到目前存在问题的地方。

我只更改了server.R文件，并且没有更改任何代码来构建新变量。构造新变量的代码进入reactive函数 - 然后需要调用该函数来实际创建表。

#Libraries
library(shiny)

#Load Data
mydata <- data.frame(cbind(x = 1, y = 1:10))

# Define server logic
shinyServer(function(input, output) {

  newdata <- reactive({
    mydata$z[mydata$y >= 5] <- mydata$y[mydata$y >= 5] + input$value
    mydata$z[mydata$y < 5] <- mydata$y[mydata$y < 5] - input$value
    return(mydata)
  })

  output$table <- renderTable({
   newdata()
  })

})

有条件地在数据帧中对闪亮的新变量进行子集化和计算

1 个答案: