问重新排序renderUI元素R Shiny？

EN

library(shiny)
library(tidyverse)
df <- read_csv("")
df <- cd %>% arrange(desc(Rating))

ui <- 
  fluidRow(
    box(title = "Reranking",
      actionButton("refresh", "Update Results"),
      uiOutput("sliders"),
      width = 12
    )
  )
server <- function(input, output, session) {

  observeEvent(input$refresh, {
    rating <- df$Rating 
    votes <- df$Votes + 1
    for(i in nrow(challenge_df)) {
      rating[i] <- (rating[i] * votes[i] - 1 + input[[paste0("slider", i)]]) / (df$Votes[i])
    }
    df <- 
      df %>%
      mutate(
        Rating = rating,
        Votes = votes
      ) 
    df <- df %>% arrange(desc(Rating))
    return(uiOutput("sliders"))
  })
  output$sliders <- renderUI({

    slide_vars <- df$A
    text_vars <- df$B
    val_vars <- df$Rating
    splitLayout(cellWidths = c("25%", "36%", "39%"),
    sliderInput(inputId = paste0("slider", i),
      label = slide_vars[i], min = 1, max = 5, value = val_vars[i]
    ),
    actionButton(paste("tabBut", i, sep = ""), "View Details"),
    bsModal(paste("modal", i, sep = ""), title = "Detailed Text", trigger = paste("tabBut", i, sep = ""), size = "small", renderText(df$Details[i]))


      )
    })

  })
}