01_intro_rstudio.Rmd

# Introducción a R y RStudio

## R

* R: es gratis, de acceso libre, utilizado para muchos campos de trabajo, fuerte en la bioinformática a través de Bioconductor
* Instalación a través de CRAN: https://cran.r-project.org/
* Para explorar que se puede hacer con R:
  - R Weekly https://rweekly.org/
  - R Bloggers https://www.r-bloggers.com/
  - Twitter https://twitter.com/search?q=%23rstats&src=typed_query
  - Twitter en español https://twitter.com/search?q=%23rstatsES&src=typed_query
  - TidyTuesday https://twitter.com/search?q=%23TidyTuesday&src=typed_query
  - DatosDeMiercoles https://twitter.com/search?q=%23datosdemiercoles&src=typed_query
* Para pedir ayuda hay muchas opciones
  - https://lcolladotor.github.io/bioc_team_ds/how-to-ask-for-help.html
  

* Material en el que estoy involucrado:
  - https://twitter.com/lcolladotor
  - https://www.youtube.com/c/LeonardoColladoTorres/playlists
  - LIBD rstats club https://docs.google.com/spreadsheets/d/1is8dZSd0FZ9Qi1Zvq1uRhm-P1McnJRd_zxdAfCRoMfA/edit?usp=sharing
  - https://twitter.com/CDSBMexico y https://twitter.com/LIBDrstats
  - https://twitter.com/Bioconductor

<img src="icon_192.png">

## GitHub

* Permite compartir código
* Se complementa con Git que es para tener un control de versiones de tu código
  - https://github.com/ComunidadBioInfo/cdsb2020/blob/master/presentaciones_flujos-de-trabajo/Introduccion-al-flujo-de-trabajo-orientado-a-proyectos.pdf
* Puedes tener páginas web estáticas
  - https://pages.github.com/
  - https://github.com/lcolladotor/rnaseq_LCG-UNAM_2021. En especial https://github.com/lcolladotor/rnaseq_LCG-UNAM_2021/tree/gh-pages se convierte en http://lcolladotor.github.io/rnaseq_LCG-UNAM_2021/
  - Página personal: https://github.com/lcolladotor/lcolladotor.github.com se convierte en http://lcolladotor.github.io/. Está todo hecho con https://github.com/lcolladotor/lcolladotorsource
* Tip: usen el mismo nombre de usuario en GitHub, Twitter, Gmail, etc. 
  - How to be a Modern Scientist: https://lcolladotor.github.io/bioc_team_ds/how-to-be-a-modern-scientist.html
  
## RStudio

* RStudio Desktop es gratis http://www.rstudio.com/products/rstudio/download/preview/
* Nos ayuda a realizar muchas cosas con R de forma más rápida
  - Demo `rsthemes`
  
```{r install_rsthemes, eval = FALSE}
remotes::install_github(c(
    "gadenbuie/rsthemes"
))
remotes::install_cran("suncalc")
rsthemes::install_rsthemes(include_base16 = TRUE)
```

  
```{r r_profile, eval = FALSE}
usethis::edit_r_profile()

## From https://www.garrickadenbuie.com/project/rsthemes/
if (interactive() && requireNamespace("rsthemes", quietly = TRUE)) {
    # Set preferred themes if not handled elsewhere..
    rsthemes::set_theme_light("Solarized Light {rsthemes}") # light theme
    rsthemes::set_theme_dark("base16 Monokai {rsthemes}") # dark theme
    rsthemes::set_theme_favorite(c(
        "Solarized Light {rsthemes}",
        "base16 Monokai {rsthemes}",
        "One Dark {rsthemes}"
    ))

    # Whenever the R session restarts inside RStudio...
    setHook("rstudio.sessionInit", function(isNewSession) {
        # Automatically choose the correct theme based on time of day
        ## Used rsthemes::geolocate() once
        rsthemes::use_theme_auto(lat = 39.2891, lon = -76.5583)
    }, action = "append")
}

## https://blog.rstudio.com/2013/06/10/rstudio-cran-mirror/
options(repos = c(CRAN = "https://cloud.r-project.org"))
```

* Es actualizado con bastante frecuencia
* RStudio cheatsheets https://www.rstudio.com/resources/cheatsheets/
  - https://github.com/rstudio/cheatsheets/raw/master/rstudio-ide.pdf
* RStudio projects: usalos para organizar tu código
  - https://github.com/ComunidadBioInfo/cdsb2020/blob/master/presentaciones_flujos-de-trabajo/Trabajando-con-proyectos.pdf


```{r proj, eval = FALSE}
usethis::create_project("~/rnaseq_2021_notas")
```

```{r create_setup, eval = FALSE}
## Start a setup file
usethis::use_r("01-notas.R")
```

O por ejemplo el archivo [01-visualizar-mtcars.R](https://github.com/lcolladotor/rnaseq_2021_notas_en_vivo/blob/master/R/01-visualizar-mtcars.R)

```{r create_01-visualizar-mtcars, eval = FALSE}
## Creemos el archivo R/01-visualizar-mtcars.R
usethis::use_r("01-visualizar-mtcars.R")
```

con el siguiente contenido:

```{r vis_mtcars, eval = FALSE}
library("sessioninfo")
library("here")
library("ggplot2")

## Hello world
print("Soy Leo")

## Crear directorio para las figuras
dir.create(here::here("figuras"), showWarnings = FALSE)

## Hacer una imagen de ejemplo
pdf(here::here("figuras", "mtcars_gear_vs_mpg.pdf"),
    useDingbats = FALSE
)
ggplot(mtcars, aes(group = gear, y = mpg)) +
    geom_boxplot()
dev.off()

## Para reproducir mi código
options(width = 120)
sessioninfo::session_info()
```


* Configura `usethis` con GitHub vía https://usethis.r-lib.org/articles/articles/git-credentials.html

```{r use_git_init, eval = FALSE}
## Para poder conectar tu compu con GitHub
usethis::create_github_token() ## Abrirá una página web, escoje un nombre único
## y luego da click en el botón verde al final. Después copia el token
## (son 40 caracteres)
gitcreds::gitcreds_set() ## Ojo, copia el token, no tu password de git!
## Si no, terminaras en la situación descrita en
## https://github.com/r-lib/usethis/issues/1347
```


En el servidor de [RStudio de la LCG-UNAM](http://132.248.220.108:8787/) no funciona bien `gitcreds::gitcreds_set()` así que tenemos que editar el archivo `.Renviron` donde nuestro token no se guarda de forma privada, y por lo cual hoy en día no es lo que recomienda [Jenny Bryan](https://twitter.com/JennyBryan). Pero es lo que funciona en este caso tal como lo hablamos con el autor de [`gitcreds` vía GitHub](https://github.com/r-lib/gitcreds/issues/29). Usando el siguiente comando podemos abrir el archivo `.Renviron`.

```{r edit_r_envir, eval = FALSE}
usethis::edit_r_environ()
```

Después guarden su token de GitHub usando la siguiente sintáxis (ojo con la línea en blanco al final, las mayúsculas al inicio, y el que no hay espacios antes y después del `=`).

```
GITHUB_PAT=TU_CLAVE_DE_40_LETRAS

```

Después de guardar el `.Renviron`, vayan a `Session` hasta arriba y reinicien la sesión de R para que se cargue el `.Renviron` antes de continuar.

```{r use_git_cont, eval = FALSE}
## Configura tu usuario de GitHub
usethis::edit_git_config()
# [user]
# 	name = Leonardo Collado Torres
# 	email = lcolladotor@gmail.com

## Para inicializar el repositorio de Git
usethis::use_git()

## Para conectar tu repositorio local de Git con los servidores de GitHub
usethis::use_github()
```

Resultado ejemplo: https://github.com/lcolladotor/rnaseq_2021_notas. El que hice en vivo está disponible vía https://github.com/lcolladotor/rnaseq_2021_notas_en_vivo.

Una vez que termines, agrega la liga al repositorio con tus notas del curso en el [Google Sheet](https://docs.google.com/spreadsheets/d/1sOBAnPkN_mP_Tq6-a8TyO7T4ii_hRPLFlKXj4qJdfUs/edit?usp=sharing) del curso. (De ser necesario, pide permisos para editar el archivo.)

## Material del curso

* Pueden descargar la versión estática con `usethis::use_course('lcolladotor/rnaseq_LCG-UNAM_2021')`
* Pueden verlo en línea a través de  [**lcolladotor.github.io/rnaseq_LCG-UNAM_2021**](http://lcolladotor.github.io/rnaseq_LCG-UNAM_2021)
* Pueden **clonarlo** desde GitHub de tal forma que podrán actualizarlo fácilmente usando *git pull*

```{bash clone_course, eval = FALSE}
git clone https://github.com/lcolladotor/rnaseq_LCG-UNAM_2021.git

## Si tienen su SSH key configurarda pueden usar
## Info sobre SSH keys de GitHub: 
## https://docs.github.com/en/github/authenticating-to-github/generating-a-new-ssh-key-and-adding-it-to-the-ssh-agent
git clone git@github.com:lcolladotor/rnaseq_LCG-UNAM_2021.git
```

O desde R con:

```{r clone_repo, eval = FALSE}
## Opción más nueva:
library("gert")
repo <- git_clone(
    "https://github.com/lcolladotor/rnaseq_LCG-UNAM_2021",
    "~/rnaseq_LCG-UNAM_2021"
)
setwd(repo)

## Otra opción:
git2r::clone(
    "https://github.com/lcolladotor/rnaseq_LCG-UNAM_2021",
    "~/rnaseq_LCG-UNAM_20210"
)
```

## Ejercicio postcards

* Similar a https://pages.github.com/
* `postcards` tiene 4 templados de páginas web https://github.com/seankross/postcards
* Tu página web debe describir decir algo sobre ti, tus intereses, y tus proyectos además de cómo contactarte
  - Ejemplo https://amy-peterson.github.io/ vía https://github.com/amy-peterson/amy-peterson.github.com
  - http://jtleek.com/ vía https://github.com/jtleek/jtleek.github.io
  - http://aejaffe.com/ vía https://github.com/andrewejaffe/andrewejaffe.github.io


```{r postcards_proj, eval = FALSE}
## Creen el RStudio project
usethis::create_project("Su_Usuario.github.io")

## Configura Git y GitHub
usethis::use_git()
usethis::use_github()
```

Creen su templado usando `postcards`. Va a crear un archivo `index.Rmd`

```{r postcards_create, eval = FALSE}
## Solo uno de estos, de acurdo al templado que más les gustó
postcards::create_postcard(template = "jolla")
postcards::create_postcard(template = "jolla-blue")
postcards::create_postcard(template = "trestles")
postcards::create_postcard(template = "onofre")
```

* Llenen su información usando el formato `Markdown`. Por ejemplo https://github.com/andrewejaffe/andrewejaffe.github.io/blob/master/index.Rmd#L17-L31.
* Agreguen sus perfiles estilo https://github.com/andrewejaffe/andrewejaffe.github.io/blob/master/index.Rmd#L7-L12
* Den click en el botón azul de `knit` en RStudio. Es equivalente a `rmarkdown::render("index.Rmd")`. Esto creará el archivo `index.html`.
* Hagan un `commit` para guardar los archivos nuevos incluyendo `index.html` y luego un `push` para subir los archivos a GitHub.
* Agreguen su repositorio a nuestra [tabla con su información](https://docs.google.com/spreadsheets/d/1sOBAnPkN_mP_Tq6-a8TyO7T4ii_hRPLFlKXj4qJdfUs/edit?usp=sharing).
* (opcional) Anuncien su nueva página web en Twitter usando el hashtag `#rstats` y/o etiquen al autor de `postcards` https://twitter.com/seankross. Pueden después incluir su página web en su introducción en el canal `#bienvenida` del Slack de la CDSB ^^.