Criar função com capacidade de gerar registros

Usage

drive_gerador_log(
  f,
  comentario = FALSE,
  planilha_registro = "12oxG2DQVGORK8i6QDdBKc2oYB9j5AghS7_ZnW22z9OU",
  ...
)

Arguments

f

função

comentario

Default FALSO. Comentário para o registo. E possível alterar o comentário inserindo texto no argumento comentário da nova função gerada.

planilha_registro

Planilha onde colocar registro.

...

Demais argumentos

Na nova função é possível colocar um string if de uma outra planilha no argumento nova_planilha_registro (Default FALSO) para alterar o local onde é feito o registro.

Value

retorna uma função com capacidade de gerar registros.

Examples

x <- drive_gerador_log(print, "Comentário antigo")
x("Texto genérico")
#> Iniciando função... print
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> [1] "Texto genérico"
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> Encerrando função... print
x("Imprimir esse texto", comentario="Novo comentário")
#> Iniciando função... print
#> Comentário: Novo comentário
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> [1] "Imprimir esse texto"
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> Encerrando função... print

# É possível utilizar funções anônimas para usar diretamente essa funcionalidade:
(drive_gerador_log(print, comentario = "aqui vai o comentario"))("sim")
#> Iniciando função... print
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> [1] "sim"
#> v Writing to Registro Geral.
#> v Appending 1 row to Página1.
#> Encerrando função... print