Test if input is a shadow
test_if_shadow(x)
object
an error if input (x) is a shadow
# NOT RUN { # success aq_shadow <- bind_shadow(airquality) test_if_shadow(aq_shadow) #fail test_if_shadow(airquality) # } # NOT RUN { # }
Run the code above in your browser using DataLab