0

这是我第一次创建网络应用程序。我在闪亮的服务器下对数据进行子集化时遇到了一些问题。这是一个大型数据集。我想根据我们在 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)

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

4

1 回答 1

0

首先，我认为你不需要在你的其他反应式中sex <- reactive({sex <- input$sex})引用。input$sex（即使你这样做，它也可能只是sex <- reactive(input$sex)，但这看起来没有必要。也许我错过了一些东西。）

无论如何，我认为问题很可能就input$sex()在sub1<-于此。您可能只是需要input$sex，或者如果出于某种原因您需要使用响应式函数sex()，那么这里看起来您结合了这两个想法。与 类似input$impairment()，应该只是input$impairment。

于 2018-04-30T19:33:42.950 回答