1. Créer une base de données excel

Les colonnes de ce fichier excel doivent être les suivantes

Note:

2. Corriger la base de données

Il est très important de s'assurer que la base de données excel est sans erreur avant de l'injecter dans Coléo. Coléo n'a pas de système de correction et va prendre toutes les entrées, même si elles contiennent des erreurs.

3. Créer un projet R

Dans RStudio,

Les projets permettent de travailler dans un working directory. La base de données doit donc être sauvegardée dans le même dossier que le projet afin de faire parti du working directory.

4. Sauvegarder la base de données en format .csv dans le même dossier que le projet R

5. Installer les packages devtools, dplyr et rcoleo

Dans RStudio,

install.packages("devtools")
install.packages("dplyr")

pour installer le package rcoleo, il faut utiliser le packages devtools, il faut donc l'appeller avec library()

library(devtools)
devtools::install_github("TheoreticalEcosystemEcology/rcoleo")

6. Mettre en cache son jeton d'accès

Ce jeton permet d'apporter des modifications dans Coléo. Il est unique et se retrouve dans Coléo, sous le profil de l'utilisateur dans le menu à gauche.Ce jeton sera sauvegardé dans votre working directory.

saveRDS("votrejeton",".httr-oauth")

Cette étape n'est faite qu'une fois et permet l'enregistrement de votre jeton dans le répertoire du projet R. Une fois faite, elle est supprimée du code d'injection. Le jeton est confidentiel.

7. Injection des taxons de référence dans Coléo

library(rcoleo)
library(dplyr)
taxa_list <- get_species()

str(taxa_list, max.level = 3)

all_things <- dplyr::bind_rows(taxa_list[[1]]$body)
corrections <- read.csv("./lenomdevotrebasededonnées.csv", header = TRUE, sep = ',', stringsAsFactors = FALSE, fileEncoding = "UTF-8-BOM") #l'encoding UTF-8 permet de garder les accents
corrections <- read.csv("./esp-compilation-donnees.csv", header = TRUE, sep = ',', stringsAsFactors = FALSE, fileEncoding = "UTF-8-BOM")

si votre ordinateur est en français, le séparateur de votre base de données pourrait être un ; dans ce cas, changer sep = ',' pour sep = ';' dans l'argument ci-haut

glimpse(all_things)
glimpse(corrections)
names(corrections)[1] <- "name"
semi_join(corrections, all_things, by = "name")
correctionsuniques <- anti_join(corrections, all_things, by = "name")
correctionscol <- select(correctionsuniques, name, vernacular_fr, rank, category, tsn, vascan_id, bryoquel_id, created_at, updated_at)

Note: L'injection ne fonctionnera pas pour les entrées avec des valeurs de tsn et/ou bryoquel de NA. Après avoir injecté toutes les espèces qui ont un tsn et/ou bryoquel, enlever tsn et/ou bryoquel de la fonction si haut. De cette façon, l'injection se fera sans le tsn/bryoquel_id pour les espèces qui n'en ont pas.

correctionstoupload <- purrr::transpose(correctionscol)

Cette dernière étape injecte les données de la base de données dans Coléo

rcoleo:::post_species(correctionstoupload)


TheoreticalEcosystemEcology/rcoleo documentation built on Oct. 20, 2020, 6:42 p.m.