beatrizmilz

# 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

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,

beatrizmilz

# 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

# 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...

beatrizmilz

#' 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'

beatrizmilz

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

beatrizmilz

# 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!

beatrizmilz

#' 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 -----------------------------------------------------------------------