Utilisation complémentaire de R et googlesheet pour générer un TD

À compléter

Objectif

Cette note vise à préparer un support partagé depuis Google sheet depuis R. L’exemple choisi est celui d’un support de TD utilisé dans le cadre des actions de formation données au sein du GT AMC.

Configuration requise

Logiciels et librairies requis

• R : langage de programmation
• googledrive : librairie permettant de manipuler des fichiers sur un drive Goodle depuis R.
• googlesheets4 : librairie permettant de manipuler les feuilles de Google sheet depuis R.

Lecture de feuilles dans un document existant

library(googlesheets4)
library(googledrive)

folder = drive_get("~/professionnel/gt-amc/formation/")[["id"]]
id = gs4_create("modelisation")
drive_mv(id, folder)

google_sheet = "1iQeIrnQ3LfScds9IE1pIDA0awQCQd0nF_fnbXZuTaKg"
# info = gs4_get(google_sheet)
# name = sheet_names(google_sheet)

geometry = read_sheet(google_sheet, sheet = "geometry")
stake = read_sheet(google_sheet, sheet = "stake")
event = read_sheet(google_sheet, sheet = "event")
dyke = read_sheet(google_sheet, sheet = "dyke")

Préparation des données

zone = c("aval", "amont")
level = 1:5

geometry = expand.grid(level = level, zone = zone)[c("zone", "level")]
geometry[["z_field"]] = geometry[["level"]] * 0.5

sheet_write(geometry, id, "geometry")
sheet_delete(id, 1)