# NOT RUN {
# Setup
pkg <- tempfile()
dir.create(file.path(pkg, "src"), recursive = TRUE)
file.create(file.path(pkg, "src", "code.c"))
file.create(file.path(pkg, "src", "code.cpp"))
# List the files, only the C++ file will be listed
cpp_files(pkg)
# Cleanup
unlink(pkg, recursive = TRUE)
# }
Run the code above in your browser using DataLab