Nothing

```
context("Share S3 objects")
test_that("S3 atomic object", {
myData <- runif(10)
class(myData) <- "testClass"
x = share(myData)
expect_equal(x, myData)
expect_equal(is.shared(x), TRUE)
expect_equal(attr(is.shared(x,showAttributes = TRUE),"sharedAttributes"),
list(class = FALSE))
## Pretending that a vector is a list
## if a user provides this kind of confusing object,
## We still need to dispatch the share method to the right
## function
myData1 <- structure(myData,class="list")
x = share(myData1)
expect_equal(unclass(x), unclass(myData1))
expect_equal(is.shared(x), TRUE)
})
test_that("S3 list object", {
myData <- list(a = runif(10), b = letters[1:4], d = sample(10,5))
class(myData) <- "testClass"
expect_error({x = share(myData, mustWork = TRUE)})
x = share(myData)
expect_equal(x, myData)
expect_equal(is.shared(x, depth = 1), list(a=TRUE,b=FALSE,d=TRUE))
## Pretending that a list is a matrix
## if a user provides this kind of confusing object,
## We still need to dispatch the share method to the right
## function
myData1 <- structure(myData,class="matrix")
x = share(myData1)
expect_equal(x, myData1)
expect_equal(is.shared(x, depth = 1), list(a=TRUE,b=FALSE,d=TRUE))
})
test_that("S3 complicated object", {
x <- lm(mpg~cyl, mtcars)
x2 <- share(x)
expect_equal(is.shared(x2,depth = 1),
list(coefficients = TRUE, residuals = TRUE, effects = TRUE, rank = TRUE,
fitted.values = TRUE, assign = TRUE, qr = TRUE, df.residual = TRUE,
xlevels = FALSE, call = FALSE, terms = FALSE, model = TRUE))
})
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.