# \donttest{
if (requireNamespace("openxlsx2", quietly = TRUE)) {
f <- tempfile(fileext = ".xlsx")
openxlsx2::write_xlsx(mtcars, f)
node <- tbl_xlsx(f)
node |> filter(cyl == 6) |> collect()
unlink(f)
}
# }
Run the code above in your browser using DataLab