Remove extra spaces in address before posting.

bin/post-311.R

@@ -14,6 +14,7 @@ library(rjson)
 library(ini)
 library(mastodon) #devtools::install_github('ThomasChln/mastodon')
 library(RSQLite)
+library(stringr)
 
 ### Config
 # Authentication variables
@@ -92,7 +93,7 @@ if(nrow(new_requests) > 0){
     for(i in 1:posts_at_once){
         request <- new_requests[i,]
         # 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){
             download.file(gsub("small","large",request$image_thumbnail), 'temp.jpg', mode="wb")
             post_media(mastodon_token, post_text, file = "temp.jpg")