Brian lilbud
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| name: Grab Latest Assets | |
| # Controls when the workflow will run | |
| on: | |
| # Triggers the workflow on push or pull request events but only for the "main" branch | |
| push: | |
| # Allows you to run this workflow manually from the Actions tab | |
| workflow_dispatch: |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| get_setlist <- function(gig_url = "/gig:1978-09-20-capitol-theatre-passaic-nj") { # nolint | |
| base_url <- "http://brucebase.wikidot.com" | |
| html <- rvest::read_html(paste0(base_url, gig_url)) | |
| # check if there is a set list known for this concert | |
| setlist_check <- !"No set details known." %in% | |
| (html %>% | |
| html_elements("p") %>% | |
| html_text()) |