color_scheme(x)
x <- read_pptx() color_scheme ( x = x )
Run the code above in your browser using DataCamp Workspace