From 015aeccaf71d60745ab5cdf5ddec914cd1e3aa7e Mon Sep 17 00:00:00 2001 From: Jaap Marsman Date: Sun, 7 May 2023 12:13:37 +0800 Subject: [PATCH] uploaded initial two shortcodes --- README.md | 56 ++++++++++++++++++++++++++++++++++++++++- downloads/download.R | 35 ++++++++++++++++++++++++++ downloads/download.css | 31 +++++++++++++++++++++++ downloads/example.Rmd | 13 ++++++++++ downloads/example.csv | 2 ++ makefile | 4 +++ pinterest/example.Rmd | 13 ++++++++++ pinterest/example.csv | 2 ++ pinterest/pinterest.R | 28 +++++++++++++++++++++ pinterest/pinterest.css | 4 +++ 10 files changed, 187 insertions(+), 1 deletion(-) create mode 100644 downloads/download.R create mode 100644 downloads/download.css create mode 100644 downloads/example.Rmd create mode 100644 downloads/example.csv create mode 100644 makefile create mode 100644 pinterest/example.Rmd create mode 100644 pinterest/example.csv create mode 100644 pinterest/pinterest.R create mode 100644 pinterest/pinterest.css diff --git a/README.md b/README.md index 9402203..d9afe47 100644 --- a/README.md +++ b/README.md @@ -1,2 +1,56 @@ # blogdown-shortcodes -A (growing) collection of Blogdown shortcodes I've written myself in R + +- 📝 I still need to improve the example.Rmd files and tidy up the .R files. So these shortcodes work, but do require a bit of manual tinkering to work outside of my own websites. I'll fix this for a 1.0 release! Currently the ID attribute doesn't actually link, but they're helpful since the shortcode pulls from the row number, so I've manually written my IDs to correspond to that. + +A (growing) collection of Blogdown shortcodes I've written myself in R. + +If you are completely unfamiliar with Blogdown, R and/or RStudio, then you may struggle to use this. I would advise you to have a go at setting up a very basic Blogdown website and playing around with that first. If you're then interested in some of these shortcodes, come back here and you'll be able to understand this much better. + +**Make sure you have library(tidyverse) installed before trying to use these shortcodes. Otherwise you can't read the CSV file. Whilst I'm sure readr works as well, for dev purposes I'm going with the full package in case I want to add functionality later.** + +Published using the MIT license, so you can do with this whatever you want. I do appreciate acknowledgements, so feel free to do so! Starring the repo greatly helps, if you're in the mood. 💫 + + + +A brief explanation with instructions on each shortcode is given below. + +## Pinterest + +This shortcode makes it easy to add a "Pin It" button underneath an image you put on your Blogdown site. It requires that you call the pinterest.R shortcode from your Rmd file. You maintain all your data (image used, alt-text used) in a separate CSV file and call your Pin by ID. The Example.Rmd shows you how to do this. + +It requires you to put the Pinterest .js stuff from their Developer site in your header-html. Depending on the theme you're using, you have to figure that part out yourself. I use [PaperMod](https://github.com/adityatelange/hugo-PaperMod) myself so it goes into **extend_head.html** and includes the following: + +``` + +``` + +Install steps: + +1. Put the pinterest.R file somewhere your Rmd can get to it (your /static/ folder would be best) +2. Put your main site URL in pinterest.R on line 16 where it says "https://www.your-site-url-here.com" without a trailing slash. This to help Pinterest grab the correct image (it seems to struggle otherwise). +3. Use and modify the R code listed in Example.Rmd to call the pinterest.R file from your blog post / page +4. Make sure your CSV file contains a correct image link + alt-text description for the image you want to pin +5. Copy & modify the pinterest.css file to your liking. It helps to centrally manage your pin image sizes. You may not want this, so feel free to remove/adjust. + +## Downloads + +A very basic downloads manager. It doesn't depend on a database to function, but on a CSV file. Examples included. By linking your PDF/ZIP/DOCX downloads into the CSV file, you are able to easily call up a nice-looking download-box anywhere on any page linking to your resource. It includes the option to have a screenshot (max height/width set to 150px) for your file too. + +It's still a bit brute-force at the moment, but you can also easily group downloads together and offer all your documents in one centralised overview. Once I've figured out how to loop through a function more effectively, I'll update the code! 😎 + +Install steps: + +1. Put the downloads.R file somewhere your Rmd can get to it (your /static/ folder would be best) +2. Use and modify the R code listed in Example.Rmd to call the pinterest.R file from your blog post / page +2. Put the lists.css file somewhere your theme tells you to +3. Make sure your CSV file contains correct IDs, links, descriptions & images for all your downloads + +You can then call the download in your Rmd file as follows, where **xx** equals the ID for your download: + +``` +`r download(xx)` +``` \ No newline at end of file diff --git a/downloads/download.R b/downloads/download.R new file mode 100644 index 0000000..b84cf05 --- /dev/null +++ b/downloads/download.R @@ -0,0 +1,35 @@ +library(tidyverse) + +downloads <- read_csv("../../static/downloads.csv") + +download <- function(x) { + download_selection <- downloads[x, ] + download_url <- toString(select(download_selection, 2)) + download_img <- toString(select(download_selection, 3)) + download_title <- toString(select(download_selection, 4)) + download_description <- toString(select(download_selection, 5)) + start_url <- "" + end_link <- "" + + start_img <- "" + + new_line <- "
" + + ul_li_begin <- "" + + concatenated <- paste0(ul_li_begin,start_url, + download_url, + end_url, + download_title, + start_img, + download_img, + end_img, + end_link, + new_line, + download_description, + end_ul_li) + return(concatenated) +} diff --git a/downloads/download.css b/downloads/download.css new file mode 100644 index 0000000..74a5e8d --- /dev/null +++ b/downloads/download.css @@ -0,0 +1,31 @@ +.uldownload { + list-style-type: none; + background-color: #efefef; + margin: 0px; + padding: 5px; + margin: 0 15px 0 0; + border: #F5F5F5 3px solid; +} + +.lidownload { + list-style-type: ""; + background-color: #dfdfdf; + margin-right: 5px; + margin: 0 15px 0 0; + border: #F5F5F5 3px solid; + height: 155px; +} + +.lidownload a, .lidownload p { + color: black; +} + +.lidownload img { + background-color: #dfdfdf; + float: left; + margin-right: 5px; + margin: 0 15px 0 0; + border: #F5F5F5 3px solid; + max-width: 150px; + max-height: 150px; +} \ No newline at end of file diff --git a/downloads/example.Rmd b/downloads/example.Rmd new file mode 100644 index 0000000..e2191df --- /dev/null +++ b/downloads/example.Rmd @@ -0,0 +1,13 @@ +--- +yaml: here +--- + +```{r, include=FALSE} +source("../../static/download.R", local = knitr::knit_global()) +``` + +# This example isn't perfect + +You need to make sure the source-link points to where you have the R file located. This one is in the main static-page, but depends on the Rmd file being in /content/blog/ + +`r download(1)` \ No newline at end of file diff --git a/downloads/example.csv b/downloads/example.csv new file mode 100644 index 0000000..4747746 --- /dev/null +++ b/downloads/example.csv @@ -0,0 +1,2 @@ +id,pdf_url,img_url,title,description +001,"/your_pdf_or_zip_or_whatever_here.pdf","/your_image_screenshot_here.png", Title for your download,Description for your download \ No newline at end of file diff --git a/makefile b/makefile new file mode 100644 index 0000000..c10e7c8 --- /dev/null +++ b/makefile @@ -0,0 +1,4 @@ +git: + git add -A + git commit -m "$m" + git push diff --git a/pinterest/example.Rmd b/pinterest/example.Rmd new file mode 100644 index 0000000..dc702e6 --- /dev/null +++ b/pinterest/example.Rmd @@ -0,0 +1,13 @@ +--- +yaml: here +--- + +```{r, include=FALSE} +source("../../static/pinterest.R", local = knitr::knit_global()) +``` + +# This example isn't perfect + +You need to make sure the source-link points to where you have the R file located. This one is in the main static-page, but depends on the Rmd file being in /content/blog/ + +`r pinterest(1)` \ No newline at end of file diff --git a/pinterest/example.csv b/pinterest/example.csv new file mode 100644 index 0000000..9a957f2 --- /dev/null +++ b/pinterest/example.csv @@ -0,0 +1,2 @@ +id,png,alt-text +001,/img_url_here.png,Nice descriptive alt-text here that Pinterest will use to scrape - just don't use commas \ No newline at end of file diff --git a/pinterest/pinterest.R b/pinterest/pinterest.R new file mode 100644 index 0000000..d2842c6 --- /dev/null +++ b/pinterest/pinterest.R @@ -0,0 +1,28 @@ +library(tidyverse) + +pins <- read_csv("../../static/pins.csv") + +pinterest <- function(x) { + print("Calling the Pinterest function") + + pinterest_selection <- pins[x, ] + pin_img_url <- toString(select(pinterest_selection, 2)) + pin_alt_text <- toString(select(pinterest_selection, 3)) + + start_pin <- "

\""" + pin_html <- "

" + return_pinterest <- paste0(start_pin, + pin_img_url, + pin_img_end, + pin_alt_text, + pin_alt_end, + pin_html, + pin_img_url, + pin_html_end + ) + print(return_pinterest) + return(return_pinterest) +} \ No newline at end of file diff --git a/pinterest/pinterest.css b/pinterest/pinterest.css new file mode 100644 index 0000000..a58837d --- /dev/null +++ b/pinterest/pinterest.css @@ -0,0 +1,4 @@ +.pintimage { + max-height: 480px; + max-width: 275px; +} \ No newline at end of file