gomesfellipe

library(tidyverse)
library(lubridate)
library(sidrar)

# Obter IPCA --------------------------------------------------------------

ipca_indice = get_sidra(api='/t/1737/n1/all/v/2266/p/all/d/v2266%2013') %>%
  as_tibble() %>% 
  select(-`Nível Territorial`, -`Nível Territorial (Código)`,
         -`Unidade de Medida`, -`Unidade de Medida (Código)`,

gomesfellipe

Based on the example code on https://www.tidymodels.org/learn/models/parsnip-nnet/

library(tidymodels)
#> ─ Attaching packages ──────────────────────────────────────────── tidymodels 0.1.0 ─
#> ✓ broom     0.5.6          ✓ recipes   0.1.12    
#> ✓ dials     0.0.6          ✓ rsample   0.0.6     
#> ✓ dplyr     0.8.5          ✓ tibble    3.0.1     
#> ✓ ggplot2   3.3.0.9000     ✓ tune      0.1.0     
#> ✓ infer     0.5.1          ✓ workflows 0.1.1     

gomesfellipe

# Referencias: 
# https://github.com/deezer/spleeter

# !conda install -c conda-forge ffmpeg libsndfile  
# !pip install spleeter

from spleeter.separator import Separator

separator = Separator('spleeter:5stems')

gomesfellipe

# R ----------------------------------------------------------------------------
born  <- as.Date("1993-12-14") 
today <- Sys.Date()

# Quantos dias de vida
difftime(today, born)

# Completa 10.000 dias de vida em:
born+days(10000)

gomesfellipe

---
title: "Gapminder: Relatorio Automático"
autor: "Fellipe Gomes"
output: pdf_document
---

```{r setup_master, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

gomesfellipe

---
title: "Untitled"
output: pdf_document
---

```{r, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# Dados do looping:
x     <- nested_gapminder$data[[i]]

gomesfellipe

# Inluir no global -------------------------------------------------------
Logged = FALSE
my_username <- "appgenalim"
my_password <- "genalim"
# -------------------------------------------------------------------------

# Autenticacao ------------------------------------------------------------
 ## Incluir codigo abaixo no servidor 
  values <- reactiveValues(authenticated = FALSE)
  

gomesfellipe

# Exemplo de como implementar a autenticação a partir da resposta da GM5:

library(RCurl)

headerFields =
  c(Accept = "text/xml",
    Accept = "multipart/*",
    'Content-Type' = "text/xml; charset=utf-8",
    SOAPAction = "http://tempuri.org/authToken")

gomesfellipe

# Codigo inspirado neste post:
# https://www.business-science.io/code-tools/2017/10/24/demo_week_timetk.html
# Testando se o ajuste funciona para a serie AirPassenger
# Nao sei ate que ponto este metodo esta correto... Vamos estudar!

library(tsibble)
library(lubridate)
library(dplyr)

library(timetk)     # Toolkit for working with time series in R

gomesfellipe

library(stringr)
# Neste exemplo vamos obter tudo que venha apos 
# a string "&token=":

# Link de exemplo:
link <- "http://www.google.com/aclk?sa=l&ai=DChcSEwi2vazh_ujhAhWHDJEKHcJaBWYYABAAGgJjZQ&token=AOD64_2roKLol2MibXGLfO6uavtAm10Hhw&ved=0ahUKEwiN26fh_ujhAhV7GLkGHUZSD6cQ0QwIFA&adurl="

# Primeiro vamos localizar a posicao 
# inicial da string desejada 
posicao_inicial <- str_locate(link ,"&token=")[,"start"]