Question

我有一个有光泽的应用程序，我想对相关列进行排序（减少）。这是我的应用：https://abdalmoamen95.shinyapps.io/Correlation/

这是我的服务器代码：

server <- function(input,output){
  output$Itemcorr <- renderTable({
    subset(DF, DF$FirstItem == input$Item)
  })
}

Answer 1

我建议使用dplyr软件包。

library(dplyr)
server <- function(input,output){
  output$Itemcorr <- renderTable({
   DF %>% filter(FirstItem == input$Item) %>% arrange(desc(X.Correlation))
  })
}

在ShinyApp中排序结果

1 个答案: