Skip to content

Instantly share code, notes, and snippets.

@jrhumberto
jrhumberto / servidores_nivel_superior.sql
Created April 12, 2025 00:01 — forked from fernandobarbalho/servidores_nivel_superior.sql
Busca a proporção de servidores com nível superior para os municípios brasileiros usando dados da RAIS
# Os dados estão presentes no repositório big query da base dos dados
SELECT id_municipio,
count(*) as quantidade_nivel_superior,
( select count(*)
from `basedosdados.br_me_rais.microdados_vinculos` vinc_sub
where vinc_sub.id_municipio = vinc.id_municipio and
ano = 2023 and
vinculo_ativo_3112 ="1" and
natureza_juridica = "1244") as total_servidores_municipio, #1244= município
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@jrhumberto
jrhumberto / gist:e107790ba030f7d9e0dd274ea490c5be
Created January 16, 2025 22:44 — forked from fernandobarbalho/gist:42606ed603a7f284aef8d117a536c41e
Função para consumo de web-service de despesa do governo do estado de São Paulo
####Aqui a função
processa_ws_sp_chamada<- function(ano,
codOrgao = "Detalhado", #Consolidado/Detalhado/<Código>
CodFonte = "Detalhado", #Consolidado/Detalhado/<Código>
CodFuncao="Detalhado", #Consolidado/Detalhado/<Código>
CodGrupo="Todos", #Todos/<Código>
CodModalidade = "Todos")#Todos/<Código>
{
# Carregar o pacote necessário
@jrhumberto
jrhumberto / apple.R
Created November 5, 2024 14:15 — forked from moodymudskipper/apple.R
computer use
apple_screenshot <- function(file = tempfile(fileext = ".png")) {
cmd <- sprintf("screencapture -xC %s", file)
system(cmd)
invisible(file)
}
apple_keystroke <- function(x) {
cmd <- sprintf(
"osascript -e 'tell application \"System Events\" to keystroke \"%s\"'",
x
@jrhumberto
jrhumberto / free-database-hosting.md
Created November 5, 2024 00:51 — forked from bmaupin/free-database-hosting.md
Free database hosting
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
library(ipeadatar)
library(tidyverse)
library(readxl)
series_disponiveis<-
ipeadatar::available_series()
codigos<-
((series_disponiveis %>%
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.

Github Two-Factor Authentication (2FA) for Brazil via SMS

The Github doesn't provide country code for Brazil (+55). To add this option, just run the code below in your console. The option Brazil +55 will be the first on the list, already selected:


🇧🇷 [pt-BR]

Autenticação em dois fatores (2FA) do GitHub para o Brasil via SMS