#' Test sf
#'
#' @return An \code{sf} spatial features collection
#' @export
#' @examples
#' test ()
test <- function() {
#sf::st_sfc (sf::st_point(1:2))
junk <- 1:2
class (junk) <- "sfc"
return (junk)
}
#' test rcpp
#'
#' @return A vector
#' @export
#' @examples
#' testrc ()
testrc <- function ()
{
rcpp_test ()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.