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

Truncate post to 500 characters.

Browse Source
This commit is contained in:
Matt
2018-11-22 12:58:56 -06:00
parent ef6e1e407f
commit 4612df0a99
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/post-311.R
View File

@@ -14,7 +14,7 @@ library(ini)
library(mastodon) #devtools::install_github('ThomasChln/mastodon') library(mastodon) #devtools::install_github('ThomasChln/mastodon')
library(RSQLite) library(RSQLite)
library(stringr) library(stringr)
library(emo) library(emo) #devtools::install_github("hadley/emo")
### Config ### Config
# Authentication variables # Authentication variables
@@ -145,7 +145,7 @@ if(nrow(new_requests) > 0){
} }
# Post one selected request # Post one selected request
post_text <- paste0(emoji, " ", request$title, " at ", str_squish(request$address), " (",request$url,"): ", request$description) post_text <- str_trunc(paste0(emoji, " ", request$title, " at ", str_squish(request$address), " (",request$url,"): ", request$description),500)
# Check for image # Check for image
if(nchar(request$image_thumbnail) > 1){ if(nchar(request$image_thumbnail) > 1){
# Get the image # Get the image