Comment faire de la barre de défilement horizontale visible dans DT::datatable

À l'aide de R brillant & DT paquet, je suis la création de certaines tables. Le nombre de colonnes varient que par la saisie de l'utilisateur & n'est pas fixe. J'ai inclus l'extrait de code suivant pour inclure une barre de défilement horizontale de sorte que lorsque le nombre de colonnes est grand, l'utilisateur peut faire défiler les colonnes qui ne sont pas directement visibles.

serveur.R:

output$results <- DT::renderDataTable({
    DT::datatable(data = datasetInput(),
                  options = list(scrollX = TRUE,...)
                  )
  })
<code reduced for brevity>

L'aide du code ci-dessus, la barre de défilement Horizontale n'est pas visible au premier abord, mais qui apparaît quand je clique sur une ligne, et a frappé la flèche droite sur mon clavier. Est-il possible que la barre de défilement devient visible dès que le tableau est tiré au-dessus, peu importe le nombre de colonnes que j'ai, et je peux faire glisser la barre de défilement à l'aide du pointeur de la souris?

Mise à jour:

J'ai essayé le code dans la réponse ci-dessous et c'est ce que je vois, pas de barre de défilement horizontale.

Comment faire de la barre de défilement horizontale visible dans DT::datatable

Veuillez toujours fournir votre sessionInfo(). Vous n'avez pas le dire, mais je suppose que vous étiez à l'aide de Mac OS X. Si c'est le cas, il n'y a rien de surprenant. C'est juste le comportement par défaut de Mac -- barres de défilement sont cachés par défaut jusqu'à ce que vous commencer à défiler.
Grâce Yihui. C'est vrai, je suis à l'aide de MacOSX. Je ferai en sorte de vous donner ma sessionInfo (à l'avenir).
Je n'utilise pas Mac souvent, mais je suppose qu'il pourrait être une façon de faire de la barre de défilement toujours visible. Voir si vous avez de la chance avec Google...

OriginalL'auteur Komal Rathi | 2015-06-10

  1. 35

    Je ne pense pas que l'on peut (ou doit) force une barre de défilement facilement si vous n'en avez pas besoin, mais le code ci-dessus fonctionne très bien pour moi, il affiche une barre de défilement lorsque la page s'initialise. Peut-être que le problème est avec les données ou quelque chose d'autre.

    Voici un exemple minimal qui a une barre de défilement horizontale sur la page de la charge 

    runApp(shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("results", width = 300)
  ),
  server = function(input, output, session) {
    output$results <- DT::renderDataTable(
      mtcars,
      options = list(scrollX = TRUE)
    )
  }
))
    Je veux dire que la barre de défilement fonctionne dans mon code, mais il n'est pas visible jusqu'à ce que je clique sur une ligne & frapper la flèche de droite. Il n'est pas visible donc je ne peux pas utiliser mon pointeur de la souris pour faire glisser.
    Je ne sais pas combien, ou si encore les questions, mais je suis en utilisant des options à l'intérieur de DT::datatable et vous l'utilisez à l'intérieur de DT::renderDataTable. Je devine que ce n'est pas le problème. Mais je ne peux toujours pas la barre de défilement, sans l'aide de mon clavier et ne peut absolument pas utiliser ma souris pour faire défiler.
    vous avez raison, en utilisant les options de renderDataTable vs en datatable ne fait aucune différence. Comme je l'ai dit, je soupçonne que le problème n'est pas avec la datatable, mais avec votre jeu de données ou quelque chose d'autre au sujet de votre code à l'origine de cela, car un simple exemple simple comme celui que j'ai montré fonctionne.
    J'ai essayé votre code de trop, il ne me montre une barre de défilement horizontale. Je ne sais pas est-il quelque chose à faire avec mon navigateur? J'ai collé la capture d'écran dans ma question.
    Assurez-vous d'avoir la dernière brillant et DT versions. Pas le CRAN de versions, mais le GItHub versions, ils avaient tous les deux beaucoup de travail au cours des 2 dernières semaines et je voudrais donc assurez-vous que vous utilisez une version de cette semaine

    OriginalL'auteur DeanAttali

  2. 4

    Essayez ceci:

    DT::datatable(sta, options = list(
  pageLength=50, scrollX='400px'), filter = 'top')

    OriginalL'auteur Aditya Kothari

  3. 0

    J'aurais fait de cette façon:

    datasetInput1 <- reactive({
      infile <- input$file1
      if(is.null(infile))
        return(NULL) 
      else
        m <- read.csv(infile$datapath, header = input$header)
        return ( DT::datatable(m, extensions = 'Scroller', options = list(deferRender = F, dom = 't',
                                                                      columnDefs = list(list(className = 'dt-center',
                                                                                             targets = 5)),
                                                                     scrollY = 300, scroller = TRUE, scrollX = T,
                                                                     pageLength = 5))
               )
    })

    OriginalL'auteur I_m_LeMarque