# NOT RUN {
if (interactive()) {
img <- "https://st.depositphotos.com/1642482/1904/i/950/depositphotos_19049237-stock-photo-leaf.jpg"
ui <- fluidPage(
use_fabric(),
fabric_shape(cid = "canvas123",
shapeId = "tri1",
shape = "Triangle",
fill = "darkblue"),
fabric_curtail(cid = "canvas123",
imgsrc = img,
type = "background"
)
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataCamp Workspace