matt/hack-grand-forks
1
0
Fork 0
Code Issues 13 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

3
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
@ -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")