Bug in CI with writeDataByGroup()

[ddotta]

@JulienBlasco I've made some adjustments but there seems to be a problem with the ` function when running tests in the CI.
https://github.com/ddotta/tablexlsx/actions/runs/9214059458/job/25349391905

Everything is apparently OK on my PC locally though.

Does the following error message mean anything to you?

    ├─base::split(x[, !names(x) %in% group], x[group], sep = groupsep) at tablexlsx/R/writeDataByGroup.R:26:3
    └─base::split.data.frame(x[, !names(x) %in% group], x[group], sep = groupsep)

[JulienBlasco]

J'ai l'impression que add_table fait un appel à writeDataByGroup alors qu'il ne devrait pas :

1. ├─iris %>% toxlsx(path = tempdir()) at test-toxlsx.R:2:3
2. └─tablexlsx::toxlsx(., path = tempdir())
3.   └─tablexlsx::add_table(...) at tablexlsx/R/toxlsx.R:204:5
4.     └─tablexlsx:::writeDataByGroup(...) at tablexlsx/R/add_table.R:113:5
5.       ├─base::split(x[, !names(x) %in% group], x[group], sep = groupsep) at tablexlsx/R/writeDataByGroup.R:26:3

On voit bien qu'il fait appel à wirtedatabygroup dans la ligne 113 de add_table. Mais ce n'est pas normal parce que normalement on n'entre dans cette boucle que si ByGroup est différent de NULL. Cf ci-dessous :

tablexlsx/R/add_table.R

Lines 101 to 113 in 5e12edb

	if (is.null(ByGroup)) {
	writeDataFunction(
	wb = WbTitle,
	sheet = mysheet,
	x = Table,
	startRow = StartRow + 2,
	startCol = StartCol + 1,
	rowNames = FALSE,
	headerStyle = style$col_header
	)
	lastrowtable <- StartRow + 2 + nrow(Table)
	} else {
	WbTitle <- writeDataByGroup(

Est-ce que c'est possible que les valeurs de ByGroup soient modifiées à l'intérieur de la fonction ?

[ddotta]

Arfff j'ai l'impression qu'il y a un soucis ici notamment :

tablexlsx/R/toxlsx.R

Line 234 in 5e12edb

ByGroup = output[[df]][["bygroup"]],

Lorsque je lance toxlsx() en mode debug, j'obtiens ceci lorsque j'ai passé l'étape du add_table() (après le bloc de lignes 204)

Browse[2]> output[[df]]
$sheet
[1] "Sheet 1"

$title
[1] "iris"

$column
list()

$footnote1
[1] ""

$footnote2
[1] ""

$footnote3
[1] ""

$groupname
[1] FALSE

On voit bien que output[[df]][["bygroup"]] n'est pas défini donc il n'y a aucune chance pour que le ByGroup = output[[df]][["bygroup"]] fonctionne

[ddotta]

Autre piste/élément :
Dans writeDataByGroup() ce n'est pas gênant si l'argument ByGroup vaut NULL quand on arrive là ?

tablexlsx/R/add_table.R

Line 113 in 5e12edb

WbTitle <- writeDataByGroup(

Le x[group] ici, il ne doit pas aimer je pense

tablexlsx/R/writeDataByGroup.R

Line 26 in 5e12edb

table_groups <- split(x[, !names(x) %in% group], x[group], sep = groupsep)

[ddotta]

@JulienBlasco Je te laisse regarder si tu as le temps, sinon j'essaierai de reprendre ça la semaine prochaine

[JulienBlasco]

Justement, si ByGroup vaut NULL dans add_table, normalement writeDataByGroup n'est pas appelée, vu qu'il y a une condition if (is.null(ByGroup)) {...} else { writeDataByGroup(...) }.

Ce qui est frustrant c'est que les tests marchent aussi chez moi, donc je ne comprends pas ce qui se passe dans la CI.

[JulienBlasco]

fixed by #31