R 闪亮的服务器问题 - 反应性全球环境

Question

这是我第一次创建网络应用程序。我在闪亮服务器下对数据进行子集化时遇到了一些问题。这是一个很大的数据集。我想根据我们在 UI 中输入的条件对数据进行子集化。但我失败了。

它显示“评估错误：尝试应用非功能”。有人可以帮我吗？太感谢了。我的最终目标是构建应用程序以通过大型数据集对数据进行子集化，并对子集应用计算。最后通过闪亮的应用程序展示结果。

我已经编写了计算过程和UI。我怎样才能将它们结合起来？我们必须在服务器下编写所有代码吗？我可以在全局环境下放置一些代码吗？全局环境会和服务器有联系吗？ 谢谢你。

附件是我的代码的图片。我怎样才能修改它以使其工作？谢谢！！！！

 server <- function(input,output){
 sex <- reactive({sex <- input$sex})
 impairment <- reactive({impairment <- input$impairment})
 sub1<- reactive({subset(a2e,Sex == input$sex() & AVS.Impairment == 
 input$impairment() )})


 output$distPlot <- renderPlot(plot{sub1()$Age})

 }

 shinyApp(ui=ui,server=server)

我想根据性别和缺陷对数据进行子集化。只是为了检查它是否有效，我选择在数据集中绘制随机列。但这没有用。请帮我。 :)

Answer 1

首先，我认为当您可以在其他反应中引用

sex <- reactive({sex <- input$sex})

时，我认为您不需要

input$sex

。 （即使你这样做，也可能只是

sex <- reactive(input$sex)

，但这看起来没有必要。也许我错过了一些东西。）

无论如何，我认为问题很可能出在

input$sex()

行中的

sub1<-

。您可能只需要

input$sex

，或者如果出于某种原因您需要使用反应函数，那么

sex()

，但在这里看起来您结合了这两个想法。与

input$impairment()

类似，应该只是

input$impairment

。