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" | |
| ) |