У меня есть некоторый код для рендеринга datatable () с использованием DT, и выходная таблица неправильно изменяет размеры, что не позволяет мне правильно взаимодействовать с datatable, поскольку я не вижу кнопок для перехода по разным страницам. Вы можете найти актуальный пример здесь: https://predictcrypto.shinyapps.io/MiningExample_Source5/
На мобильном телефоне, если вы достаточно уменьшите масштаб, вы сможете увидеть кнопки для ввода данных и даже взаимодействовать с ними.
Вот код для выбора с использованием определенной пользователем функции (я прошу прощения за дерьмовое форматирование во всем):
Mining_SymbolSelect <- function(dt, FilterBy, FilterValue=""){
dt %>%
filter(str_detect(!! rlang::sym(FilterBy),FilterValue))
}
И это код, который не отображает данные правильно:
renderDataTable({
mining5 %>% Mining_SymbolSelect(FilterBy= input$FilterBy, FilterValue=
input$FilterValue) %>% datatable() %>%
formatStyle("Profit_Hour",backgroundColor =
styleInterval(percentiles,c("red","yellow","green")),color =
styleInterval(percentiles,c("white","blue","white"))) %>%
formatStyle("SIM2_Profit_Hour",backgroundColor =
styleInterval(percentiles2,c("red","yellow","green")),color =
styleInterval(percentiles2,c("white","blue","white")))
})
Аргументы "formatStyle" предназначены для цветового кодирования диаграммы на основе значения. Я попытался добавить код таким же образом для «параметров», чтобы отрегулировать размер до нужного формата, но мне не повезло.
Я использую "flexdashboards", и я очень плохо знаком как с flexdashboards, так и с Shiny, и я все еще пытаюсь понять, как все это работает ...
Таблицы данных, которые я использую, используют DT, нужно ли их помещать перед renderDataTable, используя DT ::? Если да, почему это работает (работает на мобильном телефоне, кнопки просто не отображаются, я думаю) без этого?
Буду очень признателен за любую помощь и спасибо за чтение!