inclusives.R

library(tidyverse)
library(rvest)
library(glue)

inclusivise <- function( mot = "étudiant" ){
  url <- glue( "http://www.larousse.fr/dictionnaires/rechercher/?q={mot}&l=francais&culture=" )
  
  mots <- url %>% 
    read_html() %>% 
    html_node(".AdresseDefinition") %>% 
    html_text() %>% 
    str_split(",") %>% 
    flatten_chr() %>% 
    str_trim()
  
  len <- min( nchar(mots) )
  
  ncommon <- str_split( mots, "") %>% 
    map( head, len ) %>% 
    pmap(~.x==.y) %>% 
    flatten_lgl() %>% 
    sum()
  
  glue( "{prefixe}{m}·{f}", 
    prefixe = substr(mots[1], 1, ncommon), 
    m = substr(mots[1], ncommon + 1, nchar(mots[1]) ), 
    f = substr(mots[2], ncommon + 1, nchar(mots[2]) ) 
  )
  
}
inclusivise( "étudiant")
inclusivise( "acteur")

> inclusivise( "étudiant")
étudiant·e
> inclusivise( "acteur")
acteur·rice