differences for PR #174

Author: actions-user

01-rstudio-intro.md

@@ -575,7 +575,7 @@ function (name, pos = -1L, envir = as.environment(pos), all.names = FALSE,
     }
     else all.names
 }
-<bytecode: 0x559866f5dfd0>
+<bytecode: 0x55aefb1128f0>
 <environment: namespace:base>
 ```
 
@@ -606,7 +606,8 @@ rm(list <- ls())
 ```
 
 ``` error
-Error in rm(list <- ls()): ... must contain names or character strings
+Error in `rm()`:
+! ... must contain names or character strings
 ```
 
 :::::::::::::::::::::::::::::::::::::::::  callout

02-project-intro.md

@@ -210,7 +210,7 @@ ls -lh data/gapminder-FiveYearData.csv
 ```
 
 ``` output
--rw-r--r-- 1 runner runner 80K Nov 11 00:47 data/gapminder-FiveYearData.csv
+-rw-r--r-- 1 runner runner 80K Mar  3 01:03 data/gapminder-FiveYearData.csv
 ```
 
 El tamaño del archivo es 80K.

03-seeking-help.md

@@ -151,8 +151,8 @@ attached base packages:
 [1] stats     graphics  grDevices utils     datasets  methods   base     
 
 loaded via a namespace (and not attached):
-[1] compiler_4.5.2 tools_4.5.2    yaml_2.3.10    knitr_1.50     xfun_0.53     
-[6] renv_1.1.5     evaluate_1.0.5
+[1] compiler_4.5.2 cli_3.6.5      tools_4.5.2    yaml_2.3.12    knitr_1.51    
+[6] xfun_0.56      rlang_1.1.7    renv_1.1.7     evaluate_1.0.5
 ```
 
 Imprimirá tu versión actual de R, así como cualquier paquete que hayas

05-data-structures-part2.md

@@ -84,7 +84,8 @@ cbind(gatos, edad)
 ```
 
 ``` error
-Error in data.frame(..., check.names = FALSE): arguments imply differing number of rows: 3, 4
+Error in `data.frame()`:
+! arguments imply differing number of rows: 3, 4
 ```
 
 ``` r
@@ -93,7 +94,8 @@ cbind(gatos, edad)
 ```
 
 ``` error
-Error in data.frame(..., check.names = FALSE): arguments imply differing number of rows: 3, 2
+Error in `data.frame()`:
+! arguments imply differing number of rows: 3, 2
 ```
 
 ¿Por qué no funcionó? Claro, R quiere ver un elemento en nuestra nueva columna para cada fila de la tabla:
@@ -657,12 +659,12 @@ gapminder[sample(nrow(gapminder), 5), ]
 ```
 
 ``` output
-        country year      pop continent lifeExp gdpPercap
-967  Mauritania 1982  1622136    Africa  53.599  1481.150
-414     Denmark 1977  5088419    Europe  74.690 20422.901
-1079      Nepal 2002 25873917      Asia  61.340  1057.206
-1321    Senegal 1952  2755589    Africa  37.278  1450.357
-915  Madagascar 1962  5703324    Africa  40.848  1643.387
+            country year      pop continent lifeExp  gdpPercap
+1404        Somalia 2007  9118773    Africa  48.159   926.1411
+1605 United Kingdom 1992 57866349    Europe  76.420 22705.0925
+1601 United Kingdom 1972 56079000    Europe  72.010 15895.1164
+288           Chile 2007 16284741  Americas  78.553 13171.6388
+89          Bahrain 1972   230800      Asia  63.300 18268.6584
 ```
 
 :::::::::::::::::::::::::

06-data-subsetting.md

@@ -218,7 +218,8 @@ Esto nos devuelve un error algo críptico:
 
 
 ``` error
-Error in x[-1:3]: only 0's may be mixed with negative subscripts
+Error in `x[-1:3]`:
+! only 0's may be mixed with negative subscripts
 ```
 
 Pero recuerda el orden de las operaciones. `:` es en realidad una función. Toma
@@ -536,7 +537,8 @@ x[-"a"]
 ```
 
 ``` error
-Error in -"a": invalid argument to unary operator
+Error in `-"a"`:
+! invalid argument to unary operator
 ```
 
 Sin embargo, podemos usar el operador `!=` (no igual) para construir un vector
@@ -833,7 +835,8 @@ m[, c(3,6)]
 ```
 
 ``` error
-Error in m[, c(3, 6)]: subscript out of bounds
+Error in `m[, c(3, 6)]`:
+! subscript out of bounds
 ```
 
 :::::::::::::::::::::::::::::::::::::::::  callout
@@ -994,7 +997,8 @@ xlist[[1:2]]
 ```
 
 ``` error
-Error in xlist[[1:2]]: subscript out of bounds
+Error in `xlist[[1:2]]`:
+! subscript out of bounds
 ```
 
 Tampoco puedes usarlo para saltar elementos:
@@ -1005,7 +1009,8 @@ xlist[[-1]]
 ```
 
 ``` error
-Error in xlist[[-1]]: invalid negative subscript in get1index <real>
+Error in `xlist[[-1]]`:
+! invalid negative subscript in get1index <real>
 ```
 
 Pero tú puedes usar los nombres para hacer subconjuntos y extraer elementos:

07-control-flow.md

@@ -185,7 +185,8 @@ if(any(gapminder$year == 2002)){
 
 
 ``` error
-Error: object 'gapminder' not found
+Error:
+! object 'gapminder' not found
 ```
 
 Si tu condición se evalúa como un vector con más de un elemento lógico,
@@ -551,7 +552,8 @@ for( iCountry in unique(gapminder$country) ){
 ```
 
 ``` error
-Error: object 'gapminder' not found
+Error:
+! object 'gapminder' not found
 ```
 
 :::::::::::::::::::::::::

08-plot-ggplot2.md

@@ -93,7 +93,7 @@ ggplot(data = gapminder, mapping = aes(x = gdpPercap, y = lifeExp)) +
   geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-build-ggplot-3-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-build-ggplot-3-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::::::::::::::::  challenge
 
@@ -124,7 +124,7 @@ Esta es una posible solución:
 ggplot(data = gapminder, aes(x = year, y = lifeExp)) + geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch1-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch1-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 
@@ -154,7 +154,7 @@ ggplot(data = gapminder, aes(x = year, y = lifeExp, color=continent)) +
   geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch2-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch2-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 
@@ -171,7 +171,7 @@ ggplot(data = gapminder, aes(x=year, y=lifeExp, by=country, color=continent)) +
   geom_line()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lifeExp-line-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lifeExp-line-1.png" alt="" style="display: block; margin: auto;" />
 
 En vez de agregar una capa `geom_point`, hemos agregado una capa `geom_line`.
 Además, hemos agregado el argumento **aesthetic** **by**, el cual le dice a `ggplot` que
@@ -186,7 +186,7 @@ ggplot(data = gapminder, aes(x=year, y=lifeExp, by=country, color=continent)) +
   geom_line() + geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lifeExp-line-point-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lifeExp-line-point-1.png" alt="" style="display: block; margin: auto;" />
 
 Es importante notar que cada capa se dibuja encima de la capa anterior. En este ejemplo,
 los puntos se han dibujado *sobre* las líneas. A continuación observamos una demostración:
@@ -197,7 +197,7 @@ ggplot(data = gapminder, aes(x=year, y=lifeExp, by=country)) +
   geom_line(aes(color=continent)) + geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lifeExp-layer-example-1-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lifeExp-layer-example-1-1.png" alt="" style="display: block; margin: auto;" />
 
 En este ejemplo, el mapeo **aesthetic** de **color** se ha movido de las opciones globales de la gráfica en
 `ggplot` a la capa `geom_line` y, por lo tanto, ya no es válido para los puntos.
@@ -236,7 +236,7 @@ ggplot(data = gapminder, aes(x=year, y=lifeExp, by=country)) +
  geom_point() + geom_line(aes(color=continent))
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch3-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch3-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 ¡Las líneas ahora están dibujadas sobre los puntos!
 
@@ -255,7 +255,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, y = lifeExp, color=continent)) +
   geom_point()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lifeExp-vs-gdpPercap-scatter3-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lifeExp-vs-gdpPercap-scatter3-1.png" alt="" style="display: block; margin: auto;" />
 
 En este momento es difícil ver las relaciones entre los puntos debido a algunos
 valores altamente atípicos de la variable GDP per capita. Podemos cambiar la escala de unidades del eje X
@@ -270,7 +270,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, y = lifeExp)) +
   geom_point(alpha = 0.5) + scale_x_log10()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-axis-scale-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-axis-scale-1.png" alt="" style="display: block; margin: auto;" />
 
 La función `log10` aplica una transformación sobre los valores de la columna "gdpPercap"
 antes de presentarlos en el gráfico, de manera que cada múltiplo de 10 ahora
@@ -304,7 +304,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, y = lifeExp)) +
 `geom_smooth()` using formula = 'y ~ x'
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lm-fit-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lm-fit-1.png" alt="" style="display: block; margin: auto;" />
 
 Podemos hacer la línea más gruesa *configurando* el argumento **aesthetic** **tamaño** en la capa `geom_smooth`:
 
@@ -317,7 +317,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, y = lifeExp)) +
 ``` warning
 Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
 ℹ Please use `linewidth` instead.
-This warning is displayed once every 8 hours.
+This warning is displayed once per session.
 Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
 generated.
 ```
@@ -326,7 +326,7 @@ generated.
 `geom_smooth()` using formula = 'y ~ x'
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-lm-fit2-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-lm-fit2-1.png" alt="" style="display: block; margin: auto;" />
 
 Existen dos formas en las que un *aesthetic* puede ser especificado. Aquí *configuramos* el
 **aesthetic** **tamaño** pasándolo como un argumento a `geom_smooth`. Previamente en la lección
@@ -359,7 +359,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, y = lifeExp)) +
 `geom_smooth()` using formula = 'y ~ x'
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch4a-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch4a-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 
@@ -396,7 +396,7 @@ geom_smooth(method="lm", size=1.5)
 `geom_smooth()` using formula = 'y ~ x'
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch4b-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch4b-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 
@@ -429,7 +429,7 @@ ggplot(data = az.countries, aes(x = year, y = lifeExp, color=continent)) +
   geom_line() + facet_wrap( ~ country)
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-facet-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-facet-1.png" alt="" style="display: block; margin: auto;" />
 
 La capa `facet_wrap` toma una "fórmula" como argumento, lo cual se indica por el símbolo `~`.
 Esto le dice a R que debe dibujar un panel para cada valor único de la columna "country"
@@ -461,7 +461,7 @@ ggplot(data = az.countries, aes(x = year, y = lifeExp, color=continent)) +
   theme(axis.text.x=element_blank(), axis.ticks.x=element_blank())
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-theme-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-theme-1.png" alt="" style="display: block; margin: auto;" />
 
 ## Exportando una gráfica
 
@@ -531,7 +531,7 @@ ggplot(data = gapminder, aes(x = gdpPercap, fill=continent)) +
  geom_density(alpha=0.6) + facet_wrap( ~ year) + scale_x_log10()
 ```
 
-<img src="fig/08-plot-ggplot2-rendered-ch5-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/08-plot-ggplot2-rendered-ch5-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 

09-vectorization.md

@@ -124,7 +124,7 @@ ggplot(gapminder, aes(x = year, y = pop_millions)) +
  geom_point()
 ```
 
-<img src="fig/09-vectorization-rendered-ch2-sol-1.png" style="display: block; margin: auto;" />
+<img src="fig/09-vectorization-rendered-ch2-sol-1.png" alt="" style="display: block; margin: auto;" />
 
 ``` r
 countryset <- c("China","India","Indonesia")
@@ -133,7 +133,7 @@ ggplot(gapminder[gapminder$country %in% countryset,],
   geom_point()
 ```
 
-<img src="fig/09-vectorization-rendered-ch2-sol-2.png" style="display: block; margin: auto;" />
+<img src="fig/09-vectorization-rendered-ch2-sol-2.png" alt="" style="display: block; margin: auto;" />
 
 :::::::::::::::::::::::::
 

10-functions.md

@@ -295,7 +295,8 @@ fahr_to_kelvin(temp = as.factor(32))
 ```
 
 ``` error
-Error in fahr_to_kelvin(temp = as.factor(32)): is.numeric(temp) is not TRUE
+Error in `fahr_to_kelvin()`:
+! is.numeric(temp) is not TRUE
 ```
 
 :::::::::::::::::::::::::::::::::::::::  challenge