R/is_table_button.R

# Test if portal has a tick box or table button
is_table_button <- function(remdriver){

  x <- remdriver$getPageSource()[[1]]
  x <- grep("Table Display|Mostrar Tabla", x)
  ifelse(length(x) == 0, FALSE, TRUE)

}

Try the rSymbiota package in your browser

Any scripts or data that you put into this service are public.

rSymbiota documentation built on July 7, 2019, 5:02 p.m.