Original order?

[skanskan]

hello.

How can I show the results of HighestAverages.R in the original order of the parties input?

Or how can I modify the code to prevent it from reordering the results?

I guess I need to modify these two lines:

out <- with(.temp, (parties[order(-scores)][1:seats]))  #
output <- freq(out, digits = 3, perc = TRUE)