writingAssistantR provides an R interface for analysing your text with R, yourtext.guru API
and cocon.se/sem-eye.com API
yourtext.guru : A Premium Guide is THE list of the most important words of your content targeting a specific query. No need to make extensive literature search, they reversed engineered search engines algorithms in order to speed up your writing process.
sem-eye.com : Metamots allow you to design an efficient internal netlinking and semantic cocoons. Furthermore, you can make it possible to know if the subject of a page is well formulated.
See all documentation for YourText.guru on data-seo.com or data-seo.fr
See all documentation for Cocon.se on
data-seo.fr
Github
library(devtools)
install_github("voltek62/writingAssistantR")- Get your token https://yourtext.guru/profil/api
This key must be copied to the root of your project in a txt file : ytg_configuration.txt
token=YOURAPIKEY
debug=FALSE- Create your premium guide
library(writingAssistantR)
library(RCurl)
library(rjson)
library(XML)
initAPI()
status <- getStatus()
guide <- createGuide("crossfit","fr_fr","premium")
guide_id <- guide$guide_id
while(getGuide(guide_id)=="error") {
print("Your guide is currently being created")
Sys.sleep(40)
}
print("Your guide is ready")
guide.all <- getGuide(guide_id)- Get your scores for one URL
url <- "http://www.wodnews.com"
scores <- checkGuide(guide_id, url)
library(formattable)
percent(scores)- Get your token You need to contact the authors from Cocon.se for having an access.
This key must be copied to the root of your project in a txt file : sme_configuration.txt
user =
pass =
debug = FALSE- Get your lexies
library(writingAssistantR)
library(RCurl)
library(rjson)
library(XML)
library(stringr)
createToken()
checkStatus()
# Get your metamots. It is very important to create directly with the website
metamots <- listMetamots()
# Get your metamot Id
info <- metamots$data[[1]]
metamot_id <- info$mid
# Get all lexies metamot
lexies <- listLexies(metamot_id)
lexie_id <- lexies$name[1]- Get your scores for one URL
url <- "https://www.lequipe.fr/Ilosport/Fitness/Actualites/Dossier-crossfit-1-2-definition-avantages-risques-et-limites-du-crossfit/778028"
model <- listSimulatedLexies(metamot_id,lexie_id)
scores <- scoreLexies(model, lexie_id, url)
library(formattable)
percent(scores)- yourText.guru Team and especially Guillaume Peyronnet : https://yourtext.guru
- cocon.se Team and especially Christian Meline & Sylvain Deauré : https://sem-eye.com