inst/examples/GtkTreeModelFilter.R

In RGtk2: R Bindings for Gtk 2.8.0 and Above

visible_func <- function(model, iter, data)
{
  ## Visible if row is non-empty and first column is "HI"
  visible <- FALSE

  str <- model$get(iter, 0)[[1]]
  if (identical(str, "HI"))
    visible <- TRUE

  return(visible)
}