这是我第一次创建一个网络应用程序。关于在闪亮服务器下对数据进行子集化我遇到了一些问题。这是一个庞大的数据集。我希望按照我们在UI中输入的条件对数据进行子集化。但我失败了。
显示“eval中的错误：尝试应用非功能”。有人可以帮我吗？非常感谢。我的最终目标是通过大型数据集构建应用程序以对数据进行子集化，并对子集应用计算。最后，通过闪亮的应用程序呈现结果。
我编写了计算过程和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)
我想根据性别和损伤对数据进行分组。只是为了检查它是否有效，我选择在数据集中绘制随机列。但它没有用。请帮我。 ：）
答案 0 :(得分：0)
首先，我不认为您需要sex <- reactive({sex <- input$sex})才能在其他被动反应中引用input$sex。 （即使你这样做，也可能只是sex <- reactive(input$sex)，但这看起来不必要。也许我错过了一些东西。）
无论如何，我认为问题可能是input$sex()行中的sub1<-。您可能只需要input$sex，或者如果有某些原因需要使用反应函数，那么sex()，但在这里看起来您将这两个想法结合起来。与input$impairment()类似，它应该只是input$impairment。