Nesta resposta o @Carlos Eduardo Lagosta explicou como inserir uma lista de opções dentro de uma célula de Excel através do pacote openxlsx
.
Me ocorreu agora uma outra situação: como condicionar o preenchimento de uma célula com base na resposta da célula que contém a lista?
Suponha o seguinte dataset:
candidatos <- data.frame(
item = c("Prova", "Curriculo", "Entrevista"),
aprovado = NA,
pontuacao_item = c("10", "7", "10"))
item aprovado pontuacao_item
1 Prova NA 10
2 Curriculo NA 7
3 Entrevista NA 10
Em seguida atribuo à coluna "aprovado" é uma lista com 2 valores: "sim" e "não", seguindo o procedimento sugerido pelo @Carlos Eduardo Lagosta.
Segue o código...
valores <- c("sim", "não")
wb <- createWorkbook()
# Planilha com os dados
addWorksheet(wb, "Candidatos")
writeData(wb, "Candidatos", candidatos)
# Planilha separada para receber os valores
addWorksheet(wb, "valores")
writeData(wb, "valores", valores)
# Indica para usar os valores da planilha `valores` como lista:
dataValidation(wb, "Candidatos",
col = 2, rows = seq_len(nrow(candidatos)) + 1,
type = "list", value = "'valores'!$A$1:$A$2")
saveWorkbook(wb, "aprovados.xlsx", overwrite = T)
... e o resultado:
No entanto, estava refletindo sobre a possibilidade de criar uma outra coluna chamada "pontuacao_candidato" para ser preenchida em função da opção que se faz na coluna "aprovado".
Assim, se se escolher na planilha de Excel a opção "sim" na coluna "aprovado"; a coluna "pontuacao_candidato" deverá ser preenchida com o valor da coluna "pontuacao_item"; caso contrário, deverá ser preenchida com "0".
Procurei na documentação do pacote mas não encontrei uma função que funcione como operador "IF". Optei, então, por "forçar" o preenchimento da célula como se faria se o processo fosse realizado no Excel, ou seja:
=SE(B2="sim";C2;0)
Assim, usei a função paste0
para criar uma fórmula para ser preenchida na planilha do Excel:
candidatos <- candidatos %>%
mutate(pontos = paste0("=SE(B", seq(2,nrow(candidatos)+1 ,1), '="sim";', candidatos$pontuacao_item, ';0)'))
Imaginei que o Excel executaria automaticamente a fórmula. Mas não foi o que aconteceu. O resultado ficou assim:
Ou seja, com a redação da fórmula na célula
Quando clico na barra de "inserir função" e dou um enter, a fórmula funciona.
E o resultado fica assim:
No entanto, o inconveniente é que tenho que repetir o processo para todo as células.
Em suma, há alguma função dentro do próprio "openxlsx" que responda pelo operador "IF"?