‘Datalab’ pour R Partage d’expérience

class: center, middle, inverse, title-slide

# ‘Datalab’ pour R Partage d’expérience
## Meetup R Addicts
### Christophe Dervieux
### 28 mai 2018

---

# A propos
.subtitle[Courte introduction]

### Utilisateur de depuis 6 ans
 
### <img src="https://www.rte-france.com/sites/all/themes/rte/images/logo.png" height= "30" width="30"> RTE (Réseau de Transport d'Electricité)1 

### Depuis + d'un an, entre autres, en appui autour des sujets/projets 
 
.pull-left[
.center[
### 
@cderv
]
]

.pull-right[
.center[
### 
@chrisderv
]
]

.footnote[
[1] cette présentation n'est pas dans un cadre officiel - juste un partage personnel. 
]

???

License:
CC BY-SA 4.0
https://creativecommons.org/licenses/by-sa/4.0/

---

# en entreprise
.subtitle[C'est pas comme à la maison]

.pull-left[
### Poste de travail pas toujours adapté
+ Pas son poste perso

+ Offre bureautique, non scientifique

+ Sécurité = Limitation(Proxy, non admin, ...)
]

.pull-right[
### Cadre technique de l'entreprise contraignant
+ Règle pour le déploiement d'application en production

+ non référencé dans _les technologies validées_

+ Pas (encore ?) de cloud à disposition
]


.box[
.center[ 
**Comment améliorer le cadre de travail ?** 
**Contribuer à la transformation numérique de l'entreprise ?** 
]
]

---

# Les grandes idées

.subtitle[pour un 'datalab']

### Mutualisé
+ Collaboration entre équipes sur des projets
+ Accès aux données l'entreprise
+ Partage de la ressource de calcul

### Prêt à l'emploi
+ Juste à se connecter
+ Pas d'installation, pas de configuration
+ Permettre à des débutants d'utiliser comme un outil de manipulation de donnée avancée

### Accompagné de services et solutions
+ Intégrer à d'autres solutions
+ Favoriser les packages internes adapté au cadre de l'entreprise
+ Offrir support & expertise

---

# Mis en place

.subtitle[Solution interne en mode serveurs]

.center[

### En constante évolution
]

---

# Admin R ?
.subtitle[S'adapter à un contexte technique d'entreprise]

.center[
![](index_files/figure-html/unnamed-chunk-2-1.png)
]

>  The R admin bridges the divide between IT operations and data science teams.

[The R Admin is rad: A guide to professional R tooling and integration](https://www.rstudio.com/resources/videos/the-r-admin-is-rad-a-guide-to-professional-r-tooling-and-integration/) ( _rstudio::conf2018_ )

---
layout: true
# Retour d'expérience 
.subtitle[et réflexions...]
---
count:false
---

.left-column[
### Gestion des librairies
]

.right-column[

* Miroir CRAN interne car environnement offline

* Défi des dépendances systèmes (Service [`sysreqs`](https://sysreqs.r-hub.io/) by RHub à la rescousse)

* Librairies partagées sur les serveurs (`R_LIBS_SITE`)

* Dépôt de packages internes


.center[
.color1[**Solution spécifique à oumême solution que les autres languages ?**]


.color1[**Quelles règles de gestions pour les mises à jour ?**]
]
]
---

.left-column[
### Gestion des librairies
### Intérêt de RStudio pro
]

.right-column[
* .color1[Multiple versions] de R

* .color1[Multi-sessions] pour les utilisateurs

* .color1[Authentification] d'entreprise

* .color1[Monitoring] des environnements

* .color1[Configuration de sessions R] pour le serveur

* Connectivité aux .color1[sources de données] facilitée

* .color1[Load Balancing]

* .color1[**Support**]
]

---

.left-column[
### Gestion des librairies
### Intérêt de RStudio pro
### Customisation
]

.right-column[
### Simplifier l'utilisation

+ Au niveau de : _Rprofile.site_ et _Renviron.site_ 
+ Au niveau des configurations RStudio

###  Améliorer l'expérience

+ Centralisation des accès aux données(DSN, Kerberos, ...) 
+ Adapter l'onglet _connections_
( [Connection contract](https://db.rstudio.com/advanced/contract))
+ Ajouter des fonctionnalités dans le contexte RTE 
( [Addins RStudio](https://rstudio.github.io/rstudio-extensions/rstudio_addins.html), [RStudio API](https://rstudio.github.io/rstudio-extensions/rstudioapi.html), [Snippet](https://rstudio.github.io/rstudio-extensions/rstudio_snippets.html))
+ .color1[**Template** interne]( [Project template](https://rstudio.github.io/rstudio-extensions/rstudio_project_templates.html), [Rmarkdown templates](https://rstudio.github.io/rstudio-extensions/rmarkdown_templates.html))

.center[_https://rstudio.github.io/rstudio-extensions_]

]

---
layout: true
# Et à propos de en prod ?

.subtitle[Favoriser le déploiement]
---
count: false
### Utilité du Datalab ?

---

### Utilité du Datalab ?

.center[
![](Bitcoin_example.PNG)
.right[_Source: [R Admin - Talk rstudio::conf2018](https://github.com/nwstephens/r-admin-2018/blob/master/R-Admin-2018.pdf)_ 
]
]

---

### Utilité du Datalab ?

.right[_Source: [R Admin - Talk rstudio::conf2018](https://github.com/nwstephens/r-admin-2018/blob/master/R-Admin-2018.pdf)_
]

---
layout: true
# Et à propos de en prod ?

.subtitle[Aujourd'hui à RTE]

---

.left-column[
### Principalement des apps shiny
]

.right-column[
+ Environnement de publication du datalab
  + Facile grâce à .color1[RStudio Connect]
  + app Shiny, dashboard, rapport et présentation

+ Environnement dédié en data-center
  + Cas particuliers
  + Demande de revoir la conception

+ Docker ?
  + .color1[Standard DevOps] de l'entreprise
  + Nécessite une adaptation du contexte technique
]

---

.left-column[
### Principalement des apps shiny
### {packrat} à la rescousse
]

.right-column[
* `packrat.lock` généré dans le datalab

```r
# Générer uniquement le fichier packrat.lock
library(packrat)
.snapshotImpl(project = ".", 
*              snapshot.sources = FALSE)
```

* `packrat::restore()` dans l'environnement de déploiement le déploiement.

```r
library(packrat)
Sys.setenv(
 R_PACKRAT_CACHE_DIR = "<global-cache>",
 R_PACKRAT_SRC_DIR = "<global-src>"
)
set_opts(use.cache = TRUE, persit = FALSE)
restore()
packify() # packrat::on() automatique
```
.color1[Astuce]: un cache packrat pour accélérer le déploiement.

]

---

.left-column[
### Principalement des apps shiny
### {packrat} à la rescousse
### {config} pour adapter entre environnements
]

.right-column[
* Un seul fichier à adapter uniquement : `config.yml`:

```yaml
default:
  db-name: "db-test.acme.com"
  log-folder: "./local-log-folder"
  
*production:
  db-name: "db-prod.acme.com"
  log-folder: "/mnt/shared-log-folder"
```
* Le code R n'a pas à être changé:

```r
db_name <- config::get("db-name")
log-path <- config::get("log-folder")
```

* Dans l'environnement de déploiement

```r
Sys.setenv(R_CONFIG_ACTIVE = "production")
```

]

---
layout: false
# De l'appui dans la communauté
.subtitle[Où trouver de l'aide]

###  _R Admin_ sur community.rstudio.com

https://community.rstudio.com/c/r-admin

> This category is for discussions about .color1[R in production], at scale, and in .color1[complex environments].

### _R for Entreprise_ sur le blog RViews

https://rviews.rstudio.com/categories/r-for-the-enterprise/
+ [Analytics Administration for R](https://rviews.rstudio.com/2017/06/21/analytics-administration-for-r/)
+ [Some Ideas for your Internal R Package](https://rviews.rstudio.com/2017/07/19/supporting-corporate-r-user-groups/)
+ [Enterprise Dashboards with R Markdown](https://rviews.rstudio.com/2018/05/16/replacing-excel-reports-with-r-markdown-and-shiny/)

### S'entraider entre francophone ?

Une communauté slack francophone : https://frama.link/r-grrr

---
class: inverse, center, middle, title-slide
count: false
# MERCI