Skip to content

Instantly share code, notes, and snippets.

@ceaksan
Created May 30, 2017 06:22
Show Gist options
  • Select an option

  • Save ceaksan/38712b07b0321e3c9010233794eff7cc to your computer and use it in GitHub Desktop.

Select an option

Save ceaksan/38712b07b0321e3c9010233794eff7cc to your computer and use it in GitHub Desktop.
library("RWordPress")
library("tidyverse")
library("stringr")
options(WordPressLogin = c(kullaniciadi = "sifre"),
WordPressURL = "http://domain.com/xmlrpc.php")
checkWPOptions <- getUsersBlogs()
getPosts <- as_tibble(getPosts())
getPosts %>%
filter(post_status == "draft") %>%
arrange(-desc(postid)) %>%
select(postid, title) %>%
as_tibble(.$title)
View(as_tibble(getPosts$title))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment