The tricky part is the tag, which is not ordered the same way as the others. It's like the output of order(<positions along curve>) in that 'pc$s[pc$tag, ]' is smooth. Since it indexes 'pc$s', if I remove 'pc$s[45,]', need to make sure '!any(pc$tag==45)'.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.