install.packages("inspectdf")
library(inspectdf)

remotes::install_github('coolbutuseless/numberwang')
library(inspectdf)

---------------------------------
num_to_words(c(12, pi))
#> [1] "twelve"                                               
#> [2] "three point one four two"                             
---------------------------------
words_to_num('negative fifteen point seven')
#> [1]  -15.700 
---------------------------------

devtools::install_github("svalvaro/drawCell")
library(drawCell)

---------------------------------
drawCell(taxonomy_id = '58334', sl_ids = '0049', color = 'lightgreen')
---------------------------------

remotes::install_version(package = "broom", version = "0.5.6")

install.packages("spiralize")
library(spiralize)

---------------------------------
spiral_points()
spiral_lines()
spiral_rect()
spiral_segments()
spiral_polygon()
spiral_bars()
spiral_text()
spiral_axis()
spiral_yaxis()
spiral_raster()
spiral_horizon()
spiral_dendrogram()
spiral_phylo()
---------------------------------

install.packages("waldo")
library(waldo)

---------------------------------
df1 <- data.frame(x = c(1, 2, 3, 4, 5), y = c("a", "b", "c", "d", "e"))
df2 <- data.frame(x = c(1, 2, 3, 10, 4, 5), y = c("a", "b", "c", "X", "d", "e"))
compare(df1, df2)

#> `attr(old, 'row.names')[3:5]`: 3 4 5  
#> `attr(new, 'row.names')[3:6]`: 3 4 5 6
#> 
#> old vs new
#>             x y
#>   old[1, ]  1 a
#>   old[2, ]  2 b
#>   old[3, ]  3 c
#> + new[4, ] 10 X
#>   old[4, ]  4 d
#>   old[5, ]  5 e
#> 
#> `old$x`: 1 2 3    4 5
#> `new$x`: 1 2 3 10 4 5
#> 
#> `old$y`: "a" "b" "c"     "d" "e"
#> `new$y`: "a" "b" "c" "X" "d" "e"
---------------------------------