foo <- function(t1, t2, t3) {
    print(t1)
    warning(t2)
    return(t3)
}

foo("Hello","WARNING", InputDataSet)
