OpenFileDialog in R Selenium -
i writing tests shiny-apps. in ui.r data have fileinput-object:
fileinput(inputid= "file", label="", accept=c(".rdata"))
after click it:
webel <- remdr$findelement(using = 'css selector', "#file") webel$clickelement()
a openfiledialog appear. test need choose file openfiledialog. there possibility r selenium? have no clue how this.
you need send name of file upload dom element. here example using shiny upload example app.
require(rselenium) rselenium::startserver() remdr <- remotedriver() remdr$open() remdr$navigate("https://gallery.shinyapps.io/uploadfile") webelem <- remdr$findelement("id", "file1") # create dummy csv testcsv <- tempfile(fileext = ".csv") x <- data.frame(a = 1:4, b = 5:8, c = letters[1:4]) write.csv(x, testcsv, row.names = false) # post file app webelem$sendkeystoelement(list(testcsv)) remdr$close() remdr$closeserver()
so in case of code suffice sent file name webelement:
webel$sendkeystoelement(list('path/to/my/rdata.rdata'))
Comments
Post a Comment