Full explanatory article on my site.
A Pen by Dudley Storey on CodePen.
library(shiny) | |
library(datasets) | |
Logged = FALSE; | |
PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
# Define server logic required to summarize and view the selected dataset | |
shinyServer(function(input, output) { | |
source("www/Login.R", local = TRUE) | |
observe({ | |
if (USER$Logged == TRUE) { |
tibble::tibble() | |
tribunais <- forosCNJ::da_tribunal |> | |
dplyr::filter(id_justica == 8) |> | |
dplyr::pull(sigla) |> | |
tolower() | |
endpoints <- glue::glue( | |
"https://api-publica.datajud.cnj.jus.br/api_publica_{tribunais}/_search" | |
) |