Nothing
#' Change the Digital for Double
#'
#' @param x a double number
#' @param value digital number
#'
#' @return double number
#' @export
#'
#' @examples
#' x = 3.123
#' #usual method
#' x = round(x, 3)
#' #now
#' round(x) = 3
`round<-` <- function(x,value){
round(x,value)
}
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.