Clase 2022 24 10 (#7)

* Notas de clase y funciones nuevas

* work on #3

* work on #3

* For #4

* Notas para #4

* Notas de clase CORRECTO #4

* para el issue #3

analizar-foto.R → R/analizar-foto.R

@@ -1,4 +1,4 @@
-source("foto-a-dataframe.R")
+
 analizar_foto <- function(filename){
   tmp <- foto_a_dataframe(filename = filename) %>% 
     select(R, B, G)

R/colores-primarios.R

@@ -0,0 +1,25 @@
+
+colores_primarios <- tribble(
+  ~color_name, ~R, ~G, ~B,
+  "Black" ,0,0,0,
+  "White" ,255,255,255,
+  "Red"	,255,0,0,
+  "Lime"	,0,255,0,
+  "Blue"	,0,0,255,
+  "Yellow"	,255,255,0,
+  "Aqua"	,0,255,255,
+  "Fuchsia"	,255,0,255,
+  "Silver"	,192,192,192,
+  "Gray", 128,128,128,
+  "Maroon"	,128,0,0,
+  "Olive"	,128,128,0,
+  "Green"	,0,128,0,
+  "Purple"	,128,0,128,
+  "Teal" ,0,128,128,
+  "Navy"	,0,0,128
+) %>% 
+  mutate(hex=rgb(R,G,B,maxColorValue = 255)) %>% 
+  mutate(value = hex_to_num(str_sub(hex,2,7)) %>% as.integer())
+
+
+

R/convert-to-df.R

@@ -0,0 +1,42 @@
+hex_to_num <- function( hex ){
+  # Aca falta check de validez del input
+  paste0("0x", hex) %>% 
+    as.numeric()
+}
+
+to_RGB_df <- function(my_image){
+  mis_colores <- my_image %>% 
+    as.raster() %>% 
+    as.matrix() %>% 
+    as.vector() 
+  colores_df <- data.frame(
+    R = str_sub(mis_colores,2,3),
+    G = str_sub(mis_colores,4,5),
+    B = str_sub(mis_colores,6,7)
+  )
+  colores_df %>%
+    mutate(
+      R=hex_to_num(R),
+      G=hex_to_num(G),
+      B=hex_to_num(B)
+    )
+}
+
+convert_to_RGB_df <- function(filename){
+  my_image <- image_read(filename)
+  mis_colores <- my_image %>% 
+    as.raster() %>% 
+    as.matrix() %>% 
+    as.vector() 
+  colores_df <- data.frame(
+    R = str_sub(mis_colores,2,3),
+    G = str_sub(mis_colores,4,5),
+    B = str_sub(mis_colores,6,7)
+  )
+  colores_df %>%
+    mutate(
+      R=hex_to_num(R),
+      G=hex_to_num(G),
+      B=hex_to_num(B)
+    )
+}

R/foto-a-dataframe.R

@@ -0,0 +1,19 @@
+foto_a_dataframe <- function(filename){
+  my_image <- image_read(filename)
+  mis_colores <- my_image %>% 
+    as.raster() %>% 
+    as.matrix() %>% 
+    as.vector() 
+  colores_df <- data.frame(
+    Red = str_sub(mis_colores,2,3),
+    Green = str_sub(mis_colores,4,5),
+    Blue = str_sub(mis_colores,6,7)
+  )
+  colores_df %>%
+    mutate(
+      R=hex_to_num(Red),
+      G=hex_to_num(Green),
+      B=hex_to_num(Blue)
+    ) -> tmp
+  tmp
+}

R/libraries.R

@@ -0,0 +1,2 @@
+library(tidyverse)
+library(magick)

visualizar-colores.R → R/visualizar-colores.R

@@ -1,5 +1,3 @@
-source("foto-a-dataframe.R")
-source("analizar-foto.R")
 colores_barchart <- function(filename){
   my_data <- analizar_foto(filename)
 

notas-de-clase-2022-10-05.qmd

@@ -145,6 +145,7 @@ analizar_foto()
 paste0("./tmp/",my_data$filename[41]) %>% 
 analizar_foto()
 ```
+
 ```{r}
 paste0("./tmp/",my_data$filename[41]) %>% 
   image_read() %>% 
@@ -157,10 +158,9 @@ Crudo analisis, hay que buscar la manera de agregar matices
 
 ### Tarea:
 
-* Extraer las funciones del documento
-* Agregarlos a un documento .R
-* Reutilizarlo en otro documento qmd
-
+-   Extraer las funciones del documento
+-   Agregarlos a un documento .R
+-   Reutilizarlo en otro documento qmd
 
 ### Nota
 

notas-de-clase-2022-10-24.qmd

@@ -0,0 +1,15 @@
+---
+title: "Notas de la clase de 24 de noviembre del 2022"
+format: html
+editor: visual
+---
+
+## Cargar todas las funciones de la capeta R
+
+```{r}
+my_files <- dir("R",full.names = TRUE)
+for(archivo in my_files){
+  source(archivo)
+  cat("Procesando:", archivo, "\n")
+}
+```