Skip to content

Instantly share code, notes, and snippets.

Avatar

Beatriz Milz beatrizmilz

View GitHub Profile
View grafico-genero-cargo-candidatos-2022
# Duvida aluna Liliane (Curso-R)
# Obti os dados aqui!
# https://dadosabertos.tse.jus.br/dataset/candidatos-2022
# https://cdn.tse.jus.br/estatistica/sead/odsele/consulta_cand/consulta_cand_2022.zip
# IMPORTANDO OS DADOS!
pasta <- "Downloads/consulta_cand_2022/"
@beatrizmilz
beatrizmilz / function_to_download_gists
Created February 21, 2022 14:59
Função para fazer download de um Gist
View function_to_download_gists
list_user_gists <- function(user){
gists <- gh::gh("GET /users/{username}/gists",
username = user)
gists_df <- gists |>
purrr::map(unlist, recursive = TRUE) |>
purrr::map_dfr(tibble::enframe, .id = "id_gist") |>
tidyr::pivot_wider(id_cols = "id_gist") |>
janitor::clean_names() |>
dplyr::select(id,
View funcao-buscar-dados-votacoes.R
# Funcao para 1 dia -------------------------
buscar_dados_votacao <- function(data) {
# url da API
base <-
"https://legis.senado.leg.br/dadosabertos/plenario/lista/votacao/"
json <- jsonlite::fromJSON(paste0(base, data))
dados <- json |>
purrr::pluck("ListaVotacoes") |>
@beatrizmilz
beatrizmilz / twitch.R
Last active December 8, 2021 12:42
Código em R para buscar vídeos de um canal na twitch
View twitch.R
# AUTENTICAR NA TWITCH VIA R --------------------------------------------
# O que está na documentação:
# GET https://id.twitch.tv/oauth2/authorize
# ?client_id=<your client ID>
# &redirect_uri=<your registered redirect URI>
# &response_type=<type>
# &scope=<space-separated list of scopes>
# Adaptando isso para o que precisamos...
View 20210421_netflix_tidytuesday.R
#' Author: Bea
#' Subject: Tidytuesday de 20 de abril de 2021
library(magrittr, include.only = "%>%")
library(ggplot2)
# Import ----------------------------------------------------------------------
netflix <-
readr::read_csv(
'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-04-20/netflix_titles.csv'
View get_templates_packages.R
#' Copy templates from packages
#'
#' @param path Character: a path where the files will be copied
#' @param pacote name of the package that contains the template
#' @param template name of the template: thesis, resume, poster-relaxed,
#' poster-jacobs, card ...
#' @return
#' @export
#'
#' @examples get_templates_packages("template/", "pagedreport", "windmill")
View sorteio_rladies_marco2021.R
# Código para realizar o sorteio!
# Carregar o pipe
library(magrittr, include.only = "%>%")
# Endereço da planilha gerada pelo Google Forms
url <- "https://docs.google.com/spreadsheets/d/1B4VPVsBsJYHVGlXJpKGs-p6fZj7pu-Vlnofpibg1RLc/edit?usp=sharing"
# Lê as respostas.
# Apenas quem tem acesso a este arquivo vai conseguir fazer essa etapa.
# É necessário autenticar!
View 20210128_grafico_cantareira.R
#' Author: Beatriz Milz
#' Subject: Gráfico do volume armazenado no Sistema Cantareira. Dados da sabesp,
#' disponíveis no pacote mananciais.
library(readr)
library(ggplot2)
library(magrittr)
# Import -----------------------------------------------------------------------