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"
---------------------------------

devtools::install_github("boxuancui/DataExplorer")
library(DataExplorer)

library(readr)
# Download the data set
df=read_csv('https://raw.githubusercontent.com/lgellis/STEM/master/DATA-ART-1/Data/FinalData.csv', col_names = TRUE)
DataExplorer::create_report(df)

install.packages('visNetwork')
library(visNetwork)
nodes <- data.frame(
  id = 1:4, 
  label =  c('Ali', 'Reza', 'Hassan', 'Parsa')
)
edges = data.frame(
  from = c(rep(2, 2), rep(1, 2), 2, 3,4),
  to = c(rep(3, 3), rep(2, 2), rep(1, 2))
)
visNetwork::visNetwork(nodes, edges) |> 
  visLayout(randomSeed = 123)

install.packages("randomNames")
library(randomNames)

> randomNames(3)
[1] "Dodd, Reese"       "Clements, Clayton" "al-Badie, Mudrika"

> randomNames(3, gender=0)
[1] "Berhe, Dashawn"   "Tsuchiya, Oliver" "Wright, Jorge" 

> randomNames(3, gender=1, ethnicity=6, which.names="first") 
[1] "Ruqayya" "Sawada"  "Awaatif"