How to extract images from a PPT and save them into separate media files

I have a series of ppt files that contain jpg images. I need to extract each of these images and save them as image file (jpeg)

I am clueless on how to go about this.
I can open the ppt file and see the object contains the media, but I dont know how to extract these into single object and save them as jpeg.

doc <- read_pptx(paste0(wd, "/", files[1]))
content <- pptx_summary(doc)
content

I can see that R detects the images but I need to save them into separate files. Any idea?

Thanks!