uploaded initial two shortcodes

This commit is contained in:
Jaap Marsman 2023-05-07 12:13:37 +08:00
parent f82be412ce
commit 015aeccaf7
10 changed files with 187 additions and 1 deletions

View File

@ -1,2 +1,56 @@
# blogdown-shortcodes # 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. 💫
<!-- In Dutch, you can see these shortcodes in action on [my education website](https://www.lerenleukermaken.nl/). -->
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:
```
<script
type="text/javascript"
async defer
src="//assets.pinterest.com/js/pinit.js">
</script>
```
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)`
```

35
downloads/download.R Normal file
View File

@ -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 <- "<a href=\""
end_url <- "\" target=\"_blank\" >"
end_link <- "</a>"
start_img <- "<img src=\""
end_img <- "\">"
new_line <- "<br>"
ul_li_begin <- "<ul class=\"uldownload\"><li class=\"lidownload\">"
end_ul_li <- "</li></ul>"
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)
}

31
downloads/download.css Normal file
View File

@ -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;
}

13
downloads/example.Rmd Normal file
View File

@ -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)`

2
downloads/example.csv Normal file
View File

@ -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
1 id pdf_url img_url title description
2 001 /your_pdf_or_zip_or_whatever_here.pdf /your_image_screenshot_here.png Title for your download Description for your download

4
makefile Normal file
View File

@ -0,0 +1,4 @@
git:
git add -A
git commit -m "$m"
git push

13
pinterest/example.Rmd Normal file
View File

@ -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)`

2
pinterest/example.csv Normal file
View File

@ -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
1 id png alt-text
2 001 /img_url_here.png Nice descriptive alt-text here that Pinterest will use to scrape - just don't use commas

28
pinterest/pinterest.R Normal file
View File

@ -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 <- "<p align=\"center\"><img src=\""
pin_img_end <- "\" alt=\""
pin_alt_end <- "\" class=\"pintimage\">"
pin_html <- "<a href=\"https://www.pinterest.com/pin/create/button/\" data-pin-do=\"buttonPin\" data-pin-media=\"https://www.your-site-url-here.com"
pin_html_end <- "\" data-pin-tall=\"true\"></a></p>"
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)
}

4
pinterest/pinterest.css Normal file
View File

@ -0,0 +1,4 @@
.pintimage {
max-height: 480px;
max-width: 275px;
}