Skip to content
Create easily your premium guide with R. A Premium Guide is the list of the most important words of your content targeting a specific query.
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R
man
tests
.Rbuildignore
.gitignore
DESCRIPTION
LICENSE
NAMESPACE
README.md
_config.yml
cookies.txt
crossfit-france-2018-08.csv
crossfit-france.csv
example1.R
example2.R
writingAssistantR.Rproj

README.md

writingAssistantR

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

Install

Github

library(devtools)
install_github("voltek62/writingAssistantR")

How To use with YourText.guru

  1. 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
  1. 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)
  1. Get your scores for one URL
url <- "http://www.wodnews.com"
scores <- checkGuide(guide_id, url)
library(formattable)
percent(scores)

How To use with Cocon.se or Sem-eye

  1. 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
  1. 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]
  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)

Thanks to

You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.