Adding data with a hyperlink column in a tibble causes an error

[dhicks]

openxlsx2 version 1.3

# Works correctly
df = data.frame(url = 'http://foo.bar')
class(df$url) = 'hyperlink'
wb_workbook() |> 
    wb_add_worksheet() |> 
    wb_add_data(x = df)

# Same thing, but now the dataframe's wrapped in a `tibble`
tbl = tibble::tibble(url = 'http://foo.bar')
class(tbl$url) = 'hyperlink'
wb_workbook() |> 
    wb_add_worksheet() |> 
    wb_add_data(x = tbl)
# Error in `[<-`:
# ! `*vtmp*` must be a vector, a bare list, a data frame, a matrix, or NULL.

[JanMarvin]

Hi again @dhicks, looks like our as.data.frame() conversion kicks in to late:

library(openxlsx2)
tbl = tibble::tibble(url = 'http://foo.bar')
class(tbl$url) = 'hyperlink'
wb_workbook() |> 
  wb_add_worksheet() |> 
  wb_add_data(x = as.data.frame(tbl)) |>
  wb_to_df(show_formula = TRUE)
#>                            url
#> 2 =HYPERLINK("http://foo.bar")