Comment faire un zoom arrière en utilisant la bibliothèque RSelenium dans R?

Question

J'essaie d'écrire un web-grattoir en utilisant RSelenium Library dans R. La dernière étape de mon travail consiste à prendre une capture d'écran d'un tableau sur une page Web. Pour adapter toute la table dans la fenêtre je devrais faire un zoom arrière sur le navigateur web (dans ce cas, c'est firefox). J'ai essayé d'utiliser:

webElem <- remDR$findElement("css", "body") 
webElem$clickElement() 
webElem$sendKeysToElement(list(key = "control", "-")) 

mais cela ne fonctionne pas. Je vis aussi ce fil: Zoom out shiny app at default in browser et y trouva un fragment prometteur de code: bibliothèque (brillante)

# Define UI for application that draws a histogram 
ui <- shinyUI(fluidPage(
    tags$style(" 
      body { 
    -moz-transform: scale(0.8, 0.8); /* Moz-browsers */ 
    zoom: 0.8; /* Other non-webkit browsers */ 
    zoom: 80%; /* Webkit browsers */ 
} 
       "), 

Je ne sais pas s'il est possible de faire quelque chose de similaire dans R Sélénium et comment mettre en œuvre une modification à l'échelle css dans RSelenium. Iwould apprécier des conseils de quelqu'un de plus expérimenté avec R.

Answer 1

Il est avéré, que la bonne solution à mon problème était simple changement de résolution RSelenium:

remDR$setWindowSize(2496, 1404) 

Il fonctionne très bien pour mon but actuel.