#' Leitor medidor
#'
#' @export
leitura_medidor <- function(arq = NULL) {
if (is.null(arq)) {
arq <- system.file('extdata/Medidor1.xlsx', package = 'medidor')
}
d <- readxl::read_excel(arq)
d <- d[ , 1:6]
names(d) <- c('tribunal', 'area', 'numero_controle',
'numero_cnj', 'caso', 'resumo')
d <- dplyr::filter(d, !is.na(tribunal))
d$numero_cnj <- gsub('[^0-9]', '', d$numero_cnj)
d
}
#' @export
verifica_andamento <- function(d, row) {
if (row > 1) {
x <- d %>% dplyr::slice(c(row, row - 1))
tempo <- as.numeric(diff(x$data))
} else {
x <- d %>% dplyr::slice(c(row))
tempo <- as.numeric(diff(c(x$data, lubridate::today())))
}
if (tempo <= 7) {
c(tempo, 'verde')
} else if (tempo <= 30) {
c(tempo, 'amarelo')
} else {
c(tempo, 'vermelho')
}
# padroes <- dplyr::data_frame(
# nome = c('Conclusos', 'Carga'),
# regex = c('concluso', 'carga')
# )
# anda <- x %>%
# with(andamento) %>%
# stringr::str_to_lower() %>%
# stringr::str_trim() %>%
# stj::desacentuar()
# results <- sapply(padroes$regex, function(x) stringr::str_detect(anda, x))
# results
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.