Расширить ширину столбца с помощью renderDataTable в Shiny - PullRequest
Новая
       50

Расширить ширину столбца с помощью renderDataTable в Shiny

1 голос
/ 28 января 2020

У меня проблемы с пониманием поведения функции renderDataTable с использованием Shiny.
Я пытаюсь расширить ширина из one definei c column .
Когда я не использую Shiny, а просто пытаюсь визуализировать вывод таблицы, я пишу ниже и получаю ожидаемый результат на графике ( заголовок Amazon столбец расширен): 

Category <- c("Tools & Home Improvement", "Tools & Home Improvement")
AmazonTitle <- c("0.15,Klein Tools NCVT-2 Non Contact Voltage Tester- Dual Range Pen Voltage Detector for Standard and Low Voltage with 3 m Drop Protection", " ABCDFGEGEEFE")
ASIN_url <- c("<a href='https://www.amazon.com/dp/B004FXJOQO'>https://www.amazon.com/dp/B004FXJOQO</a>", "<a href='https://www.amazon.com/dp/B004FXJOQO'>https://www.amazon.com/dp/B0043XJOQO</a>")
ASIN <- c("B004FXJOQO", "B0043XJOQO")

All_ASIN_Information <- data.frame(Category, AmazonTitle, ASIN_url, ASIN)

DT::datatable(All_ASIN_Information, escape=FALSE, 
              options = list(
                pageLength = 20, autoWidth = TRUE,
                columnDefs = list(list( targets = 2, width = '600px'))
              )
)

Но когда я использую этот точный блок внутри DT :: renderDataTable для Shiny результат отличается и ширина столбца не увеличивается ....
См. поведение Shiny с кодом ниже: 

library(shiny)
library(DT)


ui <- fluidPage(

  mainPanel(

    DT::dataTableOutput("Table_ASIN")))


server <- function(input, output){

  output$Table_ASIN <- DT::renderDataTable(

    DT::datatable(All_ASIN_Information, escape=FALSE, 
                  options = list(
                    pageLength = 20, autoWidth = TRUE,
                    columnDefs = list(list( targets = 2, width = '600px'))
                  )))

}

shinyApp(ui, server)

Я не знаю, вызвано ли это поведение созданными гиперссылками в колонке 'ASIN_url', но я бы все равно действительно нуждался в них.

Любая помощь, высоко оцененная в этом!

1 Ответ

0 голосов
/ 28 января 2020

Один из вариантов - сократить ссылку следующим образом: 

ASIN_url <- c("<a href='https://www.amazon.com/dp/B004FXJOQO'>Link</a>", "<a href='https://www.amazon.com/dp/B004FXJOQO'>Link</a>")

Другой вариант - добавить полосу прокрутки, включив scrollX = TRUE в список параметров

.
...