Get Slide ID from URL
get_slide_id(x)
URL of slide
A character vector
x <- paste0(
"https://docs.google.com/presentation/d/",
"1Tg-GTGnUPduOtZKYuMoelqUNZnUp3vvg_7TtpUPL7e8",
"/edit#slide=id.g154aa4fae2_0_58"
)
get_slide_id(x)
#> [1] "1Tg-GTGnUPduOtZKYuMoelqUNZnUp3vvg_7TtpUPL7e8"