Error: Can't recycle as_tibble(result$table)[, 7:21] (size 15) to size 17.

[davidfgeorge]

Hi. I trust the all is well in your world.
Just started to experiment with [dlookr] and experiencing the above error in title.
The backtrace is:
<error/vctrs_error_incompatible_size>
Can't recycle as_tibble(result$table)[, 7:21] (size 15) to size 17.
Backtrace:
█

1. ├─base::source("~/Documents/Documents/SOBA/ten80_testing/ten80_db_access_test_multi_client/ten80_BidPricing.R")
2. │ ├─base::withVisible(eval(ei, envir))
3. │ └─base::eval(ei, envir)
4. │ └─base::eval(ei, envir)
5. ├─test_Bids %>% describe() ~/Documents/Documents/SOBA/ten80_testing/ten80_db_access_test_multi_client/ten80_BidPricing.R:468:10
6. ├─dlookr::describe(.)
7. ├─dlookr:::describe.data.frame(.)
8. │ └─dlookr:::describe_impl(.data, vars)
9. │ └─base::lapply(...)
10. │ └─dlookr:::FUN(X[[i]], ...)
11. │ └─dlookr:::num_summary(pull(df, x))
12. │ ├─base::[<-(...)
13. │ └─tibble:::[<-.tbl_df(...)
14. │ └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
15. │ └─tibble:::vectbl_as_new_col_index(j, x, value, j_arg, value_arg)
16. │ └─tibble:::vectbl_recycle_rhs_names(names2(value), length(j), value_arg)
17. │ ├─base::unname(vec_recycle(set_names(names), n, x_arg = as_label(value_arg)))
18. │ └─vctrs::vec_recycle(set_names(names), n, x_arg = as_label(value_arg))
19. └─vctrs:::stop_recycle_incompatible_size(...)
20. └─vctrs:::stop_vctrs(...)

What is the cause of this? Cn it be column data with NA values?
Thank you

[choonghyunryu]

Hi, @davidfgeorge

Thanks for your feedback.

It seems to be a problem in subscript operation.

If you share the data, it will help you solve the problem.
If it is impossible, Can you share the "sapply(x, function(v) sum(complete.cases(v))" result?

I want to solve the problem through reproduction.

Thank you so much.

[davidfgeorge]

Hi. Here is some additional information:
sapply( tickets, function(x) sum(complete.cases(x)))
Id Number Title ShortDescription LongDescription SoftwareVersion FunctionalArea
3 3 3 3 3 0 1
SubFunctionalArea MinimumRating RequestType ticket_status expected_effort indicative_rate in_unit
3 3 3 3 3 3 2
ticket_live_date ticket_start ticket_end ClientProfileId CompanyName in_currency
3 3 3 3 3 3

tickets %>% glimpse()
Rows: 3
Columns: 20
$ Id "FCBD158D-31F4-4C86-D430-08D90E05151D", "CE1001E5-A6E2-4FA5-872A-08D90503C424", "34985EA5-7B39-450F-A…
$ Number 153, 148, 143
$ Title "SAP POSDM Functional Consultant ", "SAP Retail Senior Functional Consultant – 12 Month Contract", "S…
$ ShortDescription "Permanent / 6 Month contract for a SAP POSDM Functional Consultant is available in one of Africa's l…
$ LongDescription "

SAP POSDM Functional Consultant – 6 Month Contract

\n

…
$ SoftwareVersion NA, NA, NA
$ FunctionalArea NA, "SAP IS (Retail)", NA
$ SubFunctionalArea "SAP POSDM", "Pricing, Procurement", "SAP HR and Workday"
$ MinimumRating "50", "70", "80"
$ RequestType "Time and Materials", "Fixed Price", "Fixed Price"
$ ticket_status 2, 2, 2
$ expected_effort 180, 2080, 30
$ indicative_rate 600, 900, 0
$ in_unit "Days", "Hours", NA
$ ticket_live_date 2021-05-03 07:28:44, 2021-04-21 20:26:38, 2021-02-17 13:55:21
$ ticket_start 2021-06-01, 2021-06-01, 2021-03-20
$ ticket_end 2021-11-30, 2022-05-31, 2021-08-31
$ ClientProfileId "EE7CD894-B5C1-4DA8-CB09-08D8C109AB1C", "EE7CD894-B5C1-4DA8-CB09-08D8C109AB1C", "EE7CD894-B5C1-4DA8-C…
$ CompanyName "Company A", "Company B", "Company C"
$ in_currency "ZAR", "ZAR", "ZAR"

tickets %>% diagnose()

A tibble: 20 x 6

variables types missing_count missing_percent unique_count unique_rate

1 Id character 0 0 3 1
2 Number integer 0 0 3 1
3 Title character 0 0 3 1
4 ShortDescription character 0 0 3 1
5 LongDescription character 0 0 3 1
6 SoftwareVersion character 3 100 1 0.333
7 FunctionalArea character 2 66.7 2 0.667
8 SubFunctionalArea character 0 0 3 1
9 MinimumRating character 0 0 3 1
10 RequestType character 0 0 2 0.667
11 ticket_status integer 0 0 1 0.333
12 expected_effort numeric 0 0 3 1
13 indicative_rate numeric 0 0 3 1
14 in_unit character 1 33.3 3 1
15 ticket_live_date POSIXct 0 0 3 1
16 ticket_start POSIXct 0 0 2 0.667
17 ticket_end POSIXct 0 0 3 1
18 ClientProfileId character 0 0 1 0.333
19 CompanyName character 0 0 1 0.333
20 in_currency character 0 0 1 0.333

tickets %>% describe()
Error: Can't recycle as_tibble(result$table)[, 7:21] (size 15) to size 17.

Hope this helps. Cheers.

[choonghyunryu]

Hi @davidfgeorge

Thanks for your bug report. I found the cause and corrected the error.
The corrected version of the error was pushed on github. Try working with the github version.
I will submit a patch version to CRAN soon.

Thank you so much.

[davidfgeorge]

Great! I can carry on experimenting. Enjoy your day.