Nothing
library(testthat)
#' My median #' #' @param x Vector of Numeric values #' @inheritParams stats::median #' #' @return #' Median of vector x #' @export #' #' @examples #' my_median(2:20) my_median <- function(x, na.rm = TRUE) { if (!is.numeric(x)) {stop("x should be numeric")} stats::median(x, na.rm = na.rm) }
my_median(1:12)
test_that("my_median works properly and show error if needed", { expect_error(my_median("text")) })
# Go in vignette but does not fail ? 1+1
test_that("my_median2 works properly and show error if needed", { expect_error(my_median("text")) })
# Run but keep eval=FALSE to avoid infinite loop # Execute in the console directly fusen::inflate(flat_file = "dev/dev_history.Rmd")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.