peep some data at one step of a pipeline.

peep(data, ..., printer = print, verbose = FALSE)

Arguments

data

some data

...

function names or expressions that use . as a placeholder for the data

printer

which function use to print

verbose

TRUE to include what is printed

Value

the input data

Examples

if( require(magrittr) ){ # just symbols iris %>% peep(head,tail) %>% summary # expressions with . iris %>% peep(head(., n=2),tail(., n=3) ) %>% summary # or both iris %>% peep(head,tail(., n=3) ) %>% summary # use verbose to see what happens iris %>% peep(head,tail(., n=3), verbose = TRUE) %>% summary }
#> Loading required package: magrittr
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3.0 1.4 0.2 setosa #> 3 4.7 3.2 1.3 0.2 setosa #> 4 4.6 3.1 1.5 0.2 setosa #> 5 5.0 3.6 1.4 0.2 setosa #> 6 5.4 3.9 1.7 0.4 setosa #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 145 6.7 3.3 5.7 2.5 virginica #> 146 6.7 3.0 5.2 2.3 virginica #> 147 6.3 2.5 5.0 1.9 virginica #> 148 6.5 3.0 5.2 2.0 virginica #> 149 6.2 3.4 5.4 2.3 virginica #> 150 5.9 3.0 5.1 1.8 virginica #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3.0 1.4 0.2 setosa #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 148 6.5 3.0 5.2 2.0 virginica #> 149 6.2 3.4 5.4 2.3 virginica #> 150 5.9 3.0 5.1 1.8 virginica #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3.0 1.4 0.2 setosa #> 3 4.7 3.2 1.3 0.2 setosa #> 4 4.6 3.1 1.5 0.2 setosa #> 5 5.0 3.6 1.4 0.2 setosa #> 6 5.4 3.9 1.7 0.4 setosa #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 148 6.5 3.0 5.2 2.0 virginica #> 149 6.2 3.4 5.4 2.3 virginica #> 150 5.9 3.0 5.1 1.8 virginica
#> head(.)
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3.0 1.4 0.2 setosa #> 3 4.7 3.2 1.3 0.2 setosa #> 4 4.6 3.1 1.5 0.2 setosa #> 5 5.0 3.6 1.4 0.2 setosa #> 6 5.4 3.9 1.7 0.4 setosa
#> tail(., n = 3)
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 148 6.5 3.0 5.2 2.0 virginica #> 149 6.2 3.4 5.4 2.3 virginica #> 150 5.9 3.0 5.1 1.8 virginica
#> Sepal.Length Sepal.Width Petal.Length Petal.Width #> Min. :4.300 Min. :2.000 Min. :1.000 Min. :0.100 #> 1st Qu.:5.100 1st Qu.:2.800 1st Qu.:1.600 1st Qu.:0.300 #> Median :5.800 Median :3.000 Median :4.350 Median :1.300 #> Mean :5.843 Mean :3.057 Mean :3.758 Mean :1.199 #> 3rd Qu.:6.400 3rd Qu.:3.300 3rd Qu.:5.100 3rd Qu.:1.800 #> Max. :7.900 Max. :4.400 Max. :6.900 Max. :2.500 #> Species #> setosa :50 #> versicolor:50 #> virginica :50 #> #> #>