Read tables

[JanMarvin]

As response to this SO

library(openxlsx2)

wb <- write_xlsx(x = list(mtcars, cars, iris, airquality),
                 as_table = TRUE)
# wb_get_tables()
wb$get_tables(sheet = NULL)
#>   tab_name tab_ref
#> 1   Table1  A1:K33
#> 2   Table2  A1:B51
#> 3   Table3 A1:E151
#> 4   Table4 A1:F154

wb$get_named_regions(tables = TRUE)
#>     name value  sheets  coords id local sheet
#> 1 Table1 table Sheet 1  A1:K33 NA    NA     1
#> 2 Table2 table Sheet 2  A1:B51 NA    NA     2
#> 3 Table3 table Sheet 3 A1:E151 NA    NA     3
#> 4 Table4 table Sheet 4 A1:F154 NA    NA     4
wb$to_df(named_region = "Table2") %>% head()
#>   speed dist
#> 2     4    2
#> 3     4   10
#> 4     7    4
#> 5     7   22
#> 6     8   16
#> 7     9   10