matt/hack-grand-forks
1
0
Fork 0
Code Issues 13 Pull Requests Packages Projects Releases Wiki Activity

Add URL.

Browse Source 
May still be a bug.
This commit is contained in:
mburtonkelly
2018-11-01 15:48:43 -05:00
parent c0aaf8a0ad
commit 3b4c86bd33
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bin/gfk-publicstuff.R
View File

@ -43,6 +43,8 @@ drop_image <- function(x){
gfk_requests <- lapply(gfk_requests, drop_image)
# Put the requests together in a data frame
requests <- bind_rows(gfk_requests)
# Add URL column
requests$url <- paste0("https://iframe.publicstuff.com/#?client_id=1353&request_id=",requests$id)
# Add posted column
requests$posted <- NA
# Sort by date
@ -95,12 +97,13 @@ requests.new <- dbGetQuery(mydb, 'SELECT * FROM requests WHERE posted IS NULL OR
posts_at_once <- 3
for(i in 1:posts_at_once){
request <- requests.new[i,]
text_to_post <- paste0(request$title, " at ", request$address, " (",request$url,"): ", request$description)
# Post one selected request
if(nchar(request$image_thumbnail) > 1){
download.file(gsub("small","large",request$image_thumbnail), 'temp.jpg', mode="wb")
post_media(mastodon_token, paste0(request$title, " at ", request$address, ": ", request$description), file = "temp.jpg")
post_media(mastodon_token, text_to_post, file = "temp.jpg")
} else {
post_status(mastodon_token, paste0(request$title, " at ", request$address, ": ", request$description))
post_status(mastodon_token, text_to_post)
}
# After tweeting or tooting, mark what has been posted.