Сортировка данных по двум столбцам, когда один выбирается пользователем

Question

Я хочу, чтобы сортировать данные по двум столбцам сначала является фактором и вторым числом, но это выбрано в блестящем виде.

Когда я использую эту строку с указанными столбцами, она работает хорошо.

iris1<-iris[with(iris,order(Species,Sepal.Length,decreasing = T)), ] 

Но внутри блестящий Я заменяю Sepal.Length реактивными значениями, и это возвращает ошибку. Пожалуйста, смотрите MRE

# ui.R 
library(shiny) 


shinyUI(pageWithSidebar(

    # Application title 
    headerPanel("Miles Per Gallon"), 

    sidebarPanel(selectInput("a","select column",c("Sepal.Length","Sepal.Width"))), 

    mainPanel(tableOutput("b")) 
)) 

# server.R 
library(shiny) 


shinyServer(function(input, output) { 

    col<-reactive({input$a}) 
output$b<- renderTable({ 
########### this line probably causes the problem 
    iris1<-iris[with(iris,order(Species,col(),decreasing = T)), ] 
}) 
}) 

Ошибка я получаю

Error in order(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, : 
    argument lengths differ 

Answer 1

Попробуйте это, используя get() для преобразования строки в имени столбца:

col <- "Sepal.Width" 
iris[with(iris, order(Species, get(col), decreasing = TRUE)), ] 

И в блестящей должно быть: get(col()).

Обратите внимание, что input$a уже реактивная, так что мы можем сказать: get(input$a)