# Create a temporary directory for testing
tmp_dir <- tempdir()
# Write the SCSS file
write_scss(path = tmp_dir)
# Confirm the file was created (optional, for user confirmation)
file.exists(file.path(tmp_dir, "custom.scss"))
# Clean up: Remove the created file
unlink(file.path(tmp_dir, "custom.scss"))
Run the code above in your browser using DataLab