Переместить значения в таблице DT в R блестящие влево - PullRequest
Новая
       43

Переместить значения в таблице DT в R блестящие влево

0 голосов
/ 10 февраля 2020

В таблице DT / данные в R блестящие. Когда нет доступных данных. Есть предложения, говорящие «Нет данных». Хотел проверить, можем ли мы переместить это предложение влево. В настоящее время он отображается в центре

Может кто-нибудь, пожалуйста, помогите?

Ниже часть из Rshiny 

output$table <- DT::renderDT({

    datatable(data2(......)) 
    })

1 Ответ

0 голосов
/ 10 февраля 2020

Вы должны изменить td.dataTables_empty CSS.

Вне Shiny, вы можете сделать: 

library(DT)

dat <- data.frame(X = numeric(0), Y = numeric(0))

callback <- '$("td.dataTables_empty").css("text-align", "left");'

datatable(dat, callback = JS(callback))

Это также работает внутри Shiny (объявите callback там, где вы хотите Например, в начале приложения). Но внутри Shiny вы также можете изменить CSS следующим образом: 

library(shiny)
library(DT)

dat <- data.frame(X = numeric(0), Y = numeric(0))

css <- "td.dataTables_empty {text-align: left !important;}"

ui <- fluidPage(
  tags$head(tags$style(HTML(css))),
  DTOutput("dtable")
)

server <- function(input, output, session){

  output[["dtable"]] <- renderDT({
    datatable(dat)
  })
}

shinyApp(ui, server)
...