# NOT RUN {
vcr_configure(dir = tempdir())
(yy <- FileSystem$new(file_name = "file4014931b21b.yml"))
yy$set_cassette(content = "hello world!")
# is empty?
yy$is_empty()
# get cassette
yy$get_cassette(file_name = "file4014931b21b.yml")
# clenaup
unlink(file.path(tempdir(), "file4014931b21b.yml"))
# }
Run the code above in your browser using DataLab