Shinny R:如何使用gvisTable对数据帧进行反应性排序
我正在构建一个web应用程序,它从用户那里获取输入值,用它创建一个数据帧,并最终使用gvisTable显示它。然而,我正在努力按分数列动态排序数据帧 以下是我在server.R文件中的内容:Shinny R:如何使用gvisTable对数据帧进行反应性排序,r,shiny,shinydashboard,R,Shiny,Shinydashboard,我正在构建一个web应用程序,它从用户那里获取输入值,用它创建一个数据帧,并最终使用gvisTable显示它。然而,我正在努力按分数列动态排序数据帧 以下是我在server.R文件中的内容: values<- reactiveValues() values$df<- data.frame() observeEvent(input$click_counter, { name<- input$name gender<- input$gender
values<- reactiveValues()
values$df<- data.frame()
observeEvent(input$click_counter, {
name<- input$name
gender<- input$gender
college<- input$college
team<- input$team
score<- as.numeric(input$score)
rank<- 0
new_row<- data.frame(rank,name,college,gender,team,score)
values$df<- rbind(values$df, new_row)
values$df<- values$df[order(values$df$score,decreasing=TRUE),]
values$df$rank<- 1:nrow(values$df)
})
dff1 <- data.frame()
output$summa2 <- renderGvis({
for (team_name in unique(values$df$team)){
rank <- 0
team <- team_name
score <- format(mean(values$df[values$df$team==team_name,]$score), digits=4)
new_row<- data.frame(rank, team, score)
dff1 <<- rbind(dff1, new_row)
dff1 <<- dff1[order(dff1$score,decreasing=FALSE),]
dff1$rank <<- 1:nrow(dff1)
}
return(gvisTable(dff1))
})
values您的代码不可复制,但我猜您需要在gvisTable
中添加sortColumn
选项
像这样:
return(gvisTable(dff1, options=list(sortColumn='COLUMN_NUMBER'))
只需替换所需列的“列号”