README.MD

In clessn/quorum-r: Quorum-R

QUORUM: PACKAGE R

Novembre 2022: Ce repository est archivé.

Tasks

• [ ] Intégrer l'API de build-a-voter
• [x] Intégrer l'API de radar+
• [ ] Intégrer l'API de civimetre+
• [x] Intégrer l'API de agora+

Documentation

# ==============================
##### Installer le package #####
install.packages('devtools')
devtools::install_github('clessn/quorum-r')



# ======================================
##### Récuperer les données Radar+ #####

# Se connecter au système. Dans la console, on vous demandera votre username et mot de passe
auth <- quorum::radarplusLogin()

# on crée une requête avec les paramètres des articles qu'on veut
begin_date <- quorum::createDate(1,7,2020, 00,00,00)
end_date <- quorum::createDate(31,12,2020, 00,00,00)

query <- quorum::createRadarplusQuery(
    begin_date=begin_date, # les articles dont la fin de la une est après cette date
    end_date=end_date,     # les articles dont la fin de la une est avant cette date
    title_contains=c('covid', 'legault'),   # dont le titre contient covid ET legault (case ignorée)
    text_contains=c('covid', 'québec'),     # dont le titre contient covid ET québec (case ignorée)
    tags=c('quorum', 'french'),             # dont la source possède les tags quorum ET french
    type='text'                             # choix: slug (info minime), text (texte seulement) ou html (html seulement)
)

# On télécharge les données dans un data.table "result"
result <- quorum::loadRadarplusData(query, auth)

# pour ajouter un texte traduit à un article
mon_slug <- result$slug[1]
mon_text <- ''
quorum::setRadarplusArticleTranslatedText(mon_slug, auth, mon_text)




# ======================================
##### Récuperer les données Agora+ #####

# Même login que radarplus pour l'instant
auth <- quorum::agoraplusLogin()

# on crée une requête avec le tag agoraplus. on peut changer type='html' pour 'text' si on veut directement le texte extrait
query <- quorum::createAgoraplusQuery(tags=c('agoraplus'), type='slug') # pour plus de contrôle, on peut générer une query avec createRadarplusQuery à la place
result <- quorum::loadAgoraplusData(query, auth)



# ======================================
##### Publier, modifier et lister les données transformées Agora+ #####

# Même login que radarplus pour l'instant
auth <- quorum::agoraplusLogin()

# Créer un nouvel objet
data <- list()
data$ma_donnee_A <- "potato"
data$ma_donnee_B <- "tomato"
quorum::createAgoraplusTransformedData(auth, 'mon_slug_de_donnee', data)
result <- quorum::listAgoraplusTransformedData(auth)
print(result[1])

# Modifier un objet
data <- list()
data$ma_donnee_A <- 23
data$ma_donnee_B <- "banana"
quorum::updateAgoraplusTransformedData(auth, 'mon_slug_de_donnee', data)
result <- quorum::listAgoraplusTransformedData(auth)
print(result[1])

# Supprimer un objet
quorum::deleteAgoraplusTransformedData(auth, 'mon_slug_de_donnee')
result <- quorum::listAgoraplusTransformedData(auth)
print(result)

# Valider si un objet existe
result <- quorum::getAgoraplusTransformedData(auth, 'mon_slug_de_donnee')

clessn/quorum-r documentation built on Nov. 19, 2022, 4:50 p.m.