From 0eb6b8d5f30e1787f836c2faa6a54c1f1e6e5fd4 Mon Sep 17 00:00:00 2001
From: tavo-wasd <gustavo@gustavocalvo.xyz>
Date: Mon, 6 Nov 2023 23:02:56 -0600
Subject: [PATCH] more R

---
 awesome-software/rstudio/README.md | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/awesome-software/rstudio/README.md b/awesome-software/rstudio/README.md
index d8ff379..11b6ccd 100644
--- a/awesome-software/rstudio/README.md
+++ b/awesome-software/rstudio/README.md
@@ -55,3 +55,23 @@ con los dígitos desde A hasta B de la variable `VAR_STRING`.
 ```r
 DATA_TOT$VAR_SUBSTRING <- as.numeric(substr(DATA_TOT$VAR_STRING, A, B))
 ```
+
+Para un `dataframe` `DATA_TOT`, crear una variable `ISO_DATE`, utilizando una
+fecha en `VAR_DATE` especificada como `format="%d-%m-%Y"`, convertida a
+formato ISO.
+
+```r
+DATA_TOT$ISO_DATE <- as.Date(as.character(DATA_TOT$VAR_DATE), format="%d-%m-%Y")
+```
+
+Para un `dataframe` `DATA_TOT`, filtrar desde/hasta una fecha
+(y opcionalmente desde/hasta otra fecha), y sumar solamente los
+campos de la columna `VAR_VALUE`.
+
+```r
+DATA_TOT %>%
+    filter(VAR_DATE < '2023-11-02') %>%
+    filter(VAR_DATE > '2023-10-10') %>%
+    pull(VAR_VALUE) %>%
+    sum
+```