matt/ham_license_qs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove extra spaces in address before posting.

Browse Source
This commit is contained in:
mburtonkelly
2018-11-05 10:13:26 -06:00
parent b2901c01d2
commit 84507ec93a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/post-311.R
View File

@ -14,6 +14,7 @@ library(rjson)
library(ini) library(ini)
library(mastodon) #devtools::install_github('ThomasChln/mastodon') library(mastodon) #devtools::install_github('ThomasChln/mastodon')
library(RSQLite) library(RSQLite)
library(stringr)
### Config ### Config
# Authentication variables # Authentication variables
@ -47,7 +48,7 @@ drop_image <- function(x){
if(class(x$primary_attachment) == "data.frame") { if(class(x$primary_attachment) == "data.frame") {
x$primary_attachment <- NULL x$primary_attachment <- NULL
} }
return(x) return(x)
} }
recent_requests <- lapply(recent_requests, drop_image) recent_requests <- lapply(recent_requests, drop_image)
# Put the requests together in a data frame # Put the requests together in a data frame
@ -92,7 +93,7 @@ if(nrow(new_requests) > 0){
for(i in 1:posts_at_once){ for(i in 1:posts_at_once){
request <- new_requests[i,] request <- new_requests[i,]
# Post one selected request # Post one selected request
post_text <- paste0(request$title, " at ", request$address, " (",request$url,"): ", request$description) post_text <- paste0(request$title, " at ", str_squish(request$address), " (",request$url,"): ", request$description)
if(nchar(request$image_thumbnail) > 1){ if(nchar(request$image_thumbnail) > 1){
download.file(gsub("small","large",request$image_thumbnail), 'temp.jpg', mode="wb") download.file(gsub("small","large",request$image_thumbnail), 'temp.jpg', mode="wb")
post_media(mastodon_token, post_text, file = "temp.jpg") post_media(mastodon_token, post_text, file = "temp.jpg")