medidor:

library(shiny)
library(dplyr)
library(lubridate)
library(stringr)
library(tidyr)
library(medidor)
library(ggvis)
library(googleVis)

data(fases_stj, package = 'medidor')

d <- fases_stj %>%
  mutate(datetime = dmy_hm(datetime),
         arq = str_match(arq, "[^/]+//([^.]+)\\.html")[, 2]) %>%
  arrange(datetime) %>%
  group_by(arq) %>%
  mutate(um = 1, acu = cumsum(um)) %>%
  ungroup %>%
  separate(arq, c('tipo', 'num', 'cnj'), sep = '_', remove = F) %>%
  select(-um)

d_tempos <- d %>%
  select(tipo, num, cnj, datetime, val, arq) %>%
  arrange(desc(datetime)) %>%
  distinct(tipo, num, cnj) %>%
  mutate(tempo = as.numeric(now() - datetime, units = 'days')) %>%
  select(-datetime)

maiores <- d_tempos %>% arrange(desc(tempo)) %>% slice(2:10) %>% 
  mutate(nome = paste(tipo, num)) %>% with(nome)

todos <- sort(unique(paste(d$tipo, d$num)))

shinyUI(fluidPage(
  
  fluidRow(column(2, selectInput('processos', 'Recursos', todos,
                                 selected = maiores, multiple = TRUE),
                  actionButton('atualiza', 'Atualizar')),
           column(10, htmlOutput('view', style = 'height:800px;'))),
  tags$hr(),
  fluidRow(column(2, selectInput('processo', 'Recurso', todos)),
           column(10, tableOutput('dados')))
))