galaaz 2.1.7 → 2.1.9

data/blogs/nse_dplyr/nse_dplyr.Rmd

@@ -9,9 +9,18 @@ output:
   html_document:
     self_contained: true
     keep_md: true
+    toc: true
+    toc_float: true
+    toc_depth: 2
+    number_sections: true
+    includes:
+      before_body: _logo_before_body.html
   pdf_document:
     includes:
-      in_header: ["../../sty/galaaz.sty"]
+      in_header:
+        - "../../sty/galaaz.sty"
+        - "../../sty/galaaz-headers-from-p3.tex"
+    keep_tex: yes
     number_sections: yes
     toc: true
     toc_depth: 2
@@ -23,10 +32,16 @@ fontsize: 11pt
 ```{r setup, echo=FALSE, message = FALSE}
 #R.options(crayon__enabled: false)
 options(crayon.enabled = FALSE)
+options(width = 70)
 library('dplyr')
 library('tibble')
 ```
 
+```{r brand_logo, echo=FALSE, fig.align='center', out.width='45%', eval=knitr::is_latex_output()}
+# PDF only — HTML uses _logo_before_body.html (above the TOC).
+knitr::include_graphics("images/galaaz-lockup-stacked.png")
+```
+
 # Introduction
 
 According to Steven Sagaert’s answer on Quora about “Is programming language R overrated?”:
@@ -207,8 +222,13 @@ The code below creates an expression summing two symbols. Note that :a and :b ar
 are not bound to any values at the time of expression definition:
 
 ```{ruby expressions}
-exp1 = :a + :b
-puts exp1
+begin
+  exp1 = :a + :b
+  puts exp1
+rescue => e
+  # Bare Symbol#+ is not expression sugar in Galaaz 2.0; short error for PDF.
+  puts "#{e.class}: #{e.message}"
+end
 ```
 In Galaaz, we can build any complex mathematical expression such as:
 
@@ -514,7 +534,8 @@ In Galaaz the method mutate_y below will work fine and will never fail silently.
 
 ```{ruby mutate_y, warning=FALSE}
 def mutate_y(df)
-  # Mutate column names are Ruby kwargs (y: …). Use .assign only for R `<-` expressions.
+  # Column names are Ruby kwargs (y: …).
+  # Use .assign only for R `<-` expressions.
   df.mutate(y: R[:a] + R[:x])
 end
 ```
@@ -531,7 +552,12 @@ definition of 'mutate\_y' above:
 
 ```{ruby call_mutate_y, warning = FALSE}
 a = 10
-mutate_y(df1)
+begin
+  mutate_y(df1)
+rescue => e
+  # Short message only — full backtraces overflow PDF code boxes.
+  puts "#{e.class}: #{e.message}"
+end
 ```
 ## Different expressions
 
@@ -794,11 +820,19 @@ def grouped_mean(data, grouping_variables, value_variables)
   data.
     group_by_at(grouping_variables).
     mutate(count: E.n).
-    summarise_at(E.c(value_variables, "count"), R[:mean], na__rm: true).
-    rename_at(value_variables, E.funs(E.paste0("mean_", value_variables)))
+    summarise_at(
+      E.c(value_variables, "count"),
+      R[:mean],
+      na__rm: true).
+    rename_at(
+      value_variables,
+      E.funs(E.paste0("mean_", value_variables)))
 end
 
-puts grouped_mean((~R[:starwars]), "eye_color", E.c("mass", "birth_year"))
+puts grouped_mean(
+  (~R[:starwars]),
+  "eye_color",
+  E.c("mass", "birth_year"))
 ```
 
 # Further reading

data/blogs/nse_dplyr/nse_dplyr.md

@@ -9,9 +9,18 @@ output:
   html_document:
     self_contained: true
     keep_md: true
+    toc: true
+    toc_float: true
+    toc_depth: 2
+    number_sections: true
+    includes:
+      before_body: _logo_before_body.html
   pdf_document:
     includes:
-      in_header: ["../../sty/galaaz.sty"]
+      in_header:
+        - "../../sty/galaaz.sty"
+        - "../../sty/galaaz-headers-from-p3.tex"
+    keep_tex: yes
     number_sections: yes
     toc: true
     toc_depth: 2
@@ -22,6 +31,8 @@ fontsize: 11pt
 
 
 
+
+
 # Introduction
 
 According to Steven Sagaert’s answer on Quora about “Is programming language R overrated?”:
@@ -205,24 +216,17 @@ are not bound to any values at the time of expression definition:
 
 
 ``` ruby
-exp1 = :a + :b
-puts exp1
-```
-
-```
-## undefined method '+' for an instance of Symbol
+begin
+  exp1 = :a + :b
+  puts exp1
+rescue => e
+  # Bare Symbol#+ is not expression sugar in Galaaz 2.0; short error for PDF.
+  puts "#{e.class}: #{e.message}"
+end
 ```
 
 ```
-## /home/rbotafogo/desenv_linux/galaaz/lib/util/exec_ruby.rb:170:in 'exec_ruby'
-## org/jruby/RubyKernel.java:1268:in 'eval'
-## /home/rbotafogo/desenv_linux/galaaz/lib/util/exec_ruby.rb:169:in 'exec_ruby'
-## /home/rbotafogo/desenv_linux/galaaz/lib/gknit/knitr_engine.rb:777:in 'block in initialize'
-## org/jruby/RubyBasicObject.java:2695:in 'instance_eval'
-## org/jruby/RubyBasicObject.java:2723:in 'instance_eval'
-## /home/rbotafogo/desenv_linux/galaaz/lib/gknit/knitr_engine.rb:748:in 'block in initialize'
-## /home/rbotafogo/desenv_linux/galaaz/lib/R_interface/new_bridge_adapter.rb:358:in 'block in register_callback_proc_stub'
-## /home/rbotafogo/desenv_linux/galaaz/lib/new_bridge/session_client.rb:413:in 'block in handle_call'
+## NoMethodError: undefined method '+' for an instance of Symbol
 ```
 In Galaaz, we can build any complex mathematical expression such as:
 
@@ -496,7 +500,7 @@ puts ~R[:flights].dim
 
 ```
 ## ~(dim(flights))
-## <environment: 0x5f0b6a5b7790>
+## <environment: 0x5cd09170df98>
 ```
 
 Now, let's use a first verb of _dplyr_: 'filter'. This verb, obviously, will filter the data
@@ -515,22 +519,23 @@ puts R.filter(:flights, (R[:month].eq 1), (R[:day].eq 1))
 
 ```
 ## # A tibble: 842 × 19
-##     year month   day dep_time sched_dep_time dep_delay arr_time sched_arr_time
-##    <int> <int> <int>    <int>          <int>     <dbl>    <int>          <int>
-##  1  2013     1     1      517            515         2      830            819
-##  2  2013     1     1      533            529         4      850            830
-##  3  2013     1     1      542            540         2      923            850
-##  4  2013     1     1      544            545        -1     1004           1022
-##  5  2013     1     1      554            600        -6      812            837
-##  6  2013     1     1      554            558        -4      740            728
-##  7  2013     1     1      555            600        -5      913            854
-##  8  2013     1     1      557            600        -3      709            723
-##  9  2013     1     1      557            600        -3      838            846
-## 10  2013     1     1      558            600        -2      753            745
+##     year month   day dep_time sched_dep_time dep_delay arr_time
+##    <int> <int> <int>    <int>          <int>     <dbl>    <int>
+##  1  2013     1     1      517            515         2      830
+##  2  2013     1     1      533            529         4      850
+##  3  2013     1     1      542            540         2      923
+##  4  2013     1     1      544            545        -1     1004
+##  5  2013     1     1      554            600        -6      812
+##  6  2013     1     1      554            558        -4      740
+##  7  2013     1     1      555            600        -5      913
+##  8  2013     1     1      557            600        -3      709
+##  9  2013     1     1      557            600        -3      838
+## 10  2013     1     1      558            600        -2      753
 ## # ℹ 832 more rows
-## # ℹ 11 more variables: arr_delay <dbl>, carrier <chr>, flight <int>,
-## #   tailnum <chr>, origin <chr>, dest <chr>, air_time <dbl>, distance <dbl>,
-## #   hour <dbl>, minute <dbl>, time_hour <dttm>
+## # ℹ 12 more variables: sched_arr_time <int>, arr_delay <dbl>,
+## #   carrier <chr>, flight <int>, tailnum <chr>, origin <chr>,
+## #   dest <chr>, air_time <dbl>, distance <dbl>, hour <dbl>,
+## #   minute <dbl>, time_hour <dttm>
 ```
 
 
@@ -683,7 +688,8 @@ In Galaaz the method mutate_y below will work fine and will never fail silently.
 
 ``` ruby
 def mutate_y(df)
-  # Mutate column names are Ruby kwargs (y: …). Use .assign only for R `<-` expressions.
+  # Column names are Ruby kwargs (y: …).
+  # Use .assign only for R `<-` expressions.
   df.mutate(y: R[:a] + R[:x])
 end
 ```
@@ -709,11 +715,16 @@ definition of 'mutate\_y' above:
 
 ``` ruby
 a = 10
-mutate_y(df1)
+begin
+  mutate_y(df1)
+rescue => e
+  # Short message only — full backtraces overflow PDF code boxes.
+  puts "#{e.class}: #{e.message}"
+end
 ```
 
 ```
-## Error: ℹ In argument: `y = a + x`.
+## NewBridge::SessionClient::RProcessError: Error: ℹ In argument: `y = a + x`.
 ## Caused by error:
 ## ! object 'a' not found
 ```
@@ -1046,16 +1057,16 @@ puts (~R[:starwars]).head
 
 ```
 ## # A tibble: 6 × 14
-##   name      height  mass hair_color skin_color eye_color birth_year sex   gender
-##   <chr>      <int> <dbl> <chr>      <chr>      <chr>          <dbl> <chr> <chr> 
-## 1 Luke Sky…    172    77 blond      fair       blue            19   male  mascu…
-## 2 C-3PO        167    75 <NA>       gold       yellow         112   none  mascu…
-## 3 R2-D2         96    32 <NA>       white, bl… red             33   none  mascu…
-## 4 Darth Va…    202   136 none       white      yellow          41.9 male  mascu…
-## 5 Leia Org…    150    49 brown      light      brown           19   fema… femin…
-## 6 Owen Lars    178   120 brown, gr… light      blue            52   male  mascu…
-## # ℹ 5 more variables: homeworld <chr>, species <chr>, films <list>,
-## #   vehicles <list>, starships <list>
+##   name   height  mass hair_color skin_color eye_color birth_year sex  
+##   <chr>   <int> <dbl> <chr>      <chr>      <chr>          <dbl> <chr>
+## 1 Luke …    172    77 blond      fair       blue            19   male 
+## 2 C-3PO     167    75 <NA>       gold       yellow         112   none 
+## 3 R2-D2      96    32 <NA>       white, bl… red             33   none 
+## 4 Darth…    202   136 none       white      yellow          41.9 male 
+## 5 Leia …    150    49 brown      light      brown           19   fema…
+## 6 Owen …    178   120 brown, gr… light      blue            52   male 
+## # ℹ 6 more variables: gender <chr>, homeworld <chr>, species <chr>,
+## #   films <list>, vehicles <list>, starships <list>
 ```
 The grouped_mean function below will receive a grouping variable and calculate summaries for
 the value\_variables given:
@@ -1083,8 +1094,8 @@ gm = starwars %>%
 ## # Auto named with `tibble::lst()`: tibble::lst(mean, median)
 ## 
 ## # Using lambdas list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
-## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
-## generated.
+## Call `lifecycle::last_lifecycle_warnings()` to see where this warning
+## was generated.
 ```
 
 ``` r
@@ -1118,11 +1129,19 @@ def grouped_mean(data, grouping_variables, value_variables)
   data.
     group_by_at(grouping_variables).
     mutate(count: E.n).
-    summarise_at(E.c(value_variables, "count"), R[:mean], na__rm: true).
-    rename_at(value_variables, E.funs(E.paste0("mean_", value_variables)))
+    summarise_at(
+      E.c(value_variables, "count"),
+      R[:mean],
+      na__rm: true).
+    rename_at(
+      value_variables,
+      E.funs(E.paste0("mean_", value_variables)))
 end
 
-puts grouped_mean((~R[:starwars]), "eye_color", E.c("mass", "birth_year"))
+puts grouped_mean(
+  (~R[:starwars]),
+  "eye_color",
+  E.c("mass", "birth_year"))
 ```
 
 ```