Nothing
#' Function to add a filter to a stack
#'
#' This function adds a filter to a stack
#'
#' @param object
#' \code{\linkS4class{FilterStack}} from which the filter has to be added
#'
#' @param filter
#' \code{\linkS4class{Filter}} that has to be added
#'
#' @author David Strebler, University of Cologne (Germany).
#'
#' @examples
#' #create filters
#' filter1 <- default_Filters('example')[[1]]
#' filter2 <- default_Filters('example2')[[1]]
#'
#' #Create filterStack
#' name <- "example"
#' description <- "non realistic filterStack"
#'
#' filters <- list(filter1)
#' filterStack <- create_FilterStack(name, description, filters)
#'
#' plot_FilterStack(filterStack)
#'
#' #add_Filter
#' filterStack <- add_Filter(filterStack, filter2)
#'
#' plot_FilterStack(filterStack)
#'
#' @export add_Filter
add_Filter <- function(
object,
filter
){
if (missing(object)){
stop("[add_Filter] Error: Input 'object' is missing.")
}else if (!is(object,"FilterStack")){
stop("[add_Filter] Error: Input 'object' is not of type 'FilterStack'.")
}
if (missing(filter)){
stop("[add_Filter] Error: Input 'filter' is missing.")
}else if (!is(filter,"Filter")){
stop("[add_Filter] Error: Input 'filter' is not of type 'Filter'.")
}
new.list <- c(object@filters, filter)
new.object <- setFilterStack(object@name,object@description,new.list)
return(new.object)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.