Merge

.Rhistory

@@ -1,61 +1,3 @@
-kable_styling(full_width = FALSE)
-# This helps me color Wylie's column red. ggplot2 sorts
-# the 53 names alphabetically, and he is number 52.
-x_colors = rep("#000000", 53)
-x_colors[52] = "red"
-ggplot(tweets_20190507, aes(x=screen_name, y=created_at, color=screen_name)) +
-geom_point(alpha = 0.3) +
-theme(axis.text.x = element_text(angle = 90)) +
-scale_color_manual(values=x_colors) +
-theme(legend.position="none")
-bind_rows(tweets_20190507, tweets_20181225) %>%
-ggplot(aes(x=screen_name, y=created_at, color=screen_name)) +
-geom_point(alpha = 0.3) +
-theme(axis.text.x = element_text(angle = 90)) +
-scale_color_manual(values=x_colors) +
-theme(legend.position="none")
-# This helps me color Wylie's column red. ggplot2 sorts
-# the 53 names alphabetically, and he is number 52.
-x_colors = rep("#000000", 54)
-x_colors[53] = "red"
-bind_rows(tweets_20190507, tweets_20181225) %>%
-ggplot(aes(x=screen_name, y=created_at, color=screen_name)) +
-geom_point(alpha = 0.3) +
-theme(axis.text.x = element_text(angle = 90)) +
-scale_color_manual(values=x_colors) +
-theme(legend.position="none")
-bind_rows(tweets_20190507, tweets_20181225) %>%
-ggplot(aes(x=screen_name, y=created_at, color=screen_name)) +
-geom_point(alpha = 0.05) +
-theme(axis.text.x = element_text(angle = 90)) +
-scale_color_manual(values=x_colors) +
-theme(legend.position="none")
-View(tweets_20181225)
-wylie_first_tweet_20181225 <- min(tweets_20181225 %>%
-filter(screen_name == "Wylie H Dallas") %>%
-select(created_at))
-tweets_20181225 %>%
-filter(screen_name == "Wylie H Dallas") %>%
-select(created_at)
-tweets_20181225 %>%
-filter(screen_name == "Wylie H Dallas")
-tweets_20181225 %>%
-filter(screen_name == "Wylie H Dallas ")
-wylie_first_tweet_20181225 <- min(tweets_20181225 %>%
-filter(screen_name == "Wylie_H_Dallas") %>%
-select(created_at))
-tweets_20181225 %>%
-filter(screen_name == "Wylie_H_Dallas") %>%
-select(created_at)
-wylie_first_tweet_20181225 <- min(tweets_20181225 %>%
-filter(screen_name == "Wylie_H_Dallas") %>%
-select(created_at)) %>%
-select(created_at))
-wylie_first_tweet_20181225 <- min(tweets_20181225 %>%
-filter(screen_name == "Wylie_H_Dallas") %>%
-select(created_at))
-min(tweets_20181225 %>%
-filter(screen_name == "Wylie_H_Dallas") %>%
 select(created_at))
 tweets_20181225 %>%
 filter(screen_name == "Wylie_H_Dallas") %>%
@@ -510,3 +452,61 @@ add_row(name = "Wylie H. Dallas",
 screen_name = "Wylie_H_Dallas") %>%
 add_row(name = "Philip Kingston",
 screen_name = "PhilipTKingston")
+install.packages(c("kableExtra", "rtweet", "tidytext", "tidyverse", "widyr"))
+install.packages("rtweet")
+install.packages("openssl")
+install.packages("openssl")
+install.packages("rtweet")
+install.packages("httr")
+install.packages("httr")
+install.packages("rtweet")
+install.packages("tidyverse")
+install.packages("tidyverse")
+install.packages("tidytext")
+install.packages("kableExtra")
+install.packages("widyr")
+install.packages("devtools")
+if (!require('knitr')) {install.packages("knitr")}
+if (!require('devtools')) {install.packages("devtools")}
+if (!require('RWordPress')) {devtools::install_github(c("duncantl/XMLRPC", "duncantl/RWordPress"))}
+devtools::install_github("duncantl/XMLRPC")
+devtools::install_github("duncantl/RWordPress")
+if (!require('RWordPress')) {devtools::install_github(c("duncantl/XMLRPC", "duncantl/RWordPress"))}
+library(knitr)
+library(RWordPress)
+options(WordpressLogin = c(`Aren Cambre` = 'tQ3djsKK'),
+WordpressURL = 'https://arencambre.com/xmlrpc.php')
+knit2wp('index.RmD',
+title = 'Who is Wylie H. Dallas?',
+publish = FALSE,
+action = "newPage")
+knit2wp('index.Rmd',
+title = 'Who is Wylie H. Dallas?',
+publish = FALSE,
+action = "newPage")
+options(WordpressLogin = c(`Aren Cambre` = 'tQ3djsKK'),
+WordpressURL = 'https://www.arencambre.com/xmlrpc.php')
+knit2wp('index.Rmd',
+title = 'Who is Wylie H. Dallas?',
+publish = FALSE,
+action = "newPage")
+library(keyring)
+install.packages("keyring")
+install.packages("keyring")
+library(keyring)
+key_set("blog_username")
+key_set("blog_password")
+options(WordpressLogin = c(key_get("blog_username") = key_get("blog_password")),
+WordpressURL = 'https://www.arencambre.com/xmlrpc.php')
+c(user = 'PASSWORD')
+c(`user`` = 'PASSWORD')
+c(`user` = 'PASSWORD')
+c("user" = 'PASSWORD')
+c(key_get("blog_username") = key_get("blog_password"))
+key_get("blog_username")
+key_get("blog_password")
+c("Aren Cambre" = "k8gsIClAfpi%lRwJGxkuQjp9")
+c("Aren Cambre" = key_get("blog_password"))
+c(key_get("blog_username") = key_get("blog_password"))
+options(WordpressLogin = c("Aren Cambre" = key_get("blog_password")),
+WordpressURL = 'https://www.arencambre.com/xmlrpc.php')