У меня есть таблица данных о запасах, которые я пытаюсь визуализировать и отсортировать в блестящем приложении. Однако, когда я сортирую по возврату дня / недели / месяца, он не отображает значения по возрастанию или убыванию. Сорт отлично, когда на улице блестит.
Ниже приведен сокращенный код, который я использую для генерации таблицы:
ui <- fluidPage(
mainPanel(
selectInput("stock", "Select a Stock(s):", choices = unique(portfolio$Stock), multiple = TRUE,
selected = "AAPL")),
tabsetPanel(
tabPanel("Top Movers", DT::dataTableOutput('dataTable'))
)
)
server <- function(input, output, session) {
output$dataTable <- DT::renderDataTable({
Test <- formatter("span",
style = x ~ formattable::style(display = "block", color = "black","border-radius" = "4px",
"padding-right" = "4px",
"background-color" = ifelse(x <= -5, "#fc9272", ifelse(x > -5 & x <= -1, "#fee0d2", ifelse(x > -1 & x <= 1, "#ffffff", ifelse(x > 1 & x <= 5, "#e5f5e0",ifelse(x > 5, "#a1d99b",NA)))))),
x ~ percent(x/100))
returns <- formattable(stocks_df, align =c("l","c","c","c","c", "c", "c", "c"), list(
`Stock` = formattable::formatter("span", style = ~ formattable::style(color = "grey",font.weight = "bold")),
daily_return = Test,
week_return = Test,
month_return = Test)
dtable <- as.datatable(returns)
dtable
})
}
shinyApp(ui=ui, server=server)
Вот изображение поведения сортировки, которое я получаю при попытке отсортировать по недельному возврату
