Я искал в Google о своей проблеме несколько дней, но не нашел пути. Я должен использовать блестящую страницу для реактивной страницы, и моя таблица должна выделить определенные c ячеек. Я пробовал эти методы.
- background_color () в пакете huxtable не работает на блестящем.
- DT или другие пакеты для таблицы основаны на столбцах, поэтому трудно выбрать определенную ячейку автоматически.
Итак, я хочу установить заданный c фон ячейки следующим образом:
Как я могу это сделать?
ui <-dashboardPage(
# App title ----
dashboardHeader(title="1", titleWidth = 300),
# Sidebar layout with a input and output definitions ----
dashboardSidebar(width=300,
sidebarMenu(
textInput(inputId = "url", label = h4("Insert the URL:")))),
# Main panel for displaying outputs ----
dashboardBody(box(h4("Whole gnome"), div(tableOutput("wholegnome"))))))
server <-function(input, output) {
# Return the requested dataset ----
observeEvent(input$button, isolate({
datasetInput <- eventReactive(input$button, {})
output$wholegnome <- renderTable({
data <- datasetInput()
data0 <- unlist(strsplit(data, ""))
tt<-rep(' ' , 50-length(data0)%%50)
data0 <- c(data0, tt)
data0<-matrix(data0, ncol=50, nrow=length(data0)%/%50, byrow=T, dimnames=list(num, c(1:50)))
})