dankkom

read_shp <- function(filepath) {
  # If zipped
  if (stringr::str_ends(filepath, ".zip")) {
    temp1 <- tempfile()
    unzip(zipfile = filepath, exdir = temp1)
    d <- sf::read_sf(temp1)
    unlink(temp1, recursive = TRUE)
    return(d)
  }
  # If not zipped

dankkom

dankkom

ts_to_df <- function(ts_data) {
  dates <- xts:::as.Date.POSIXct(zoo::yearmon(time(ts_data)))
  values <- zoo::coredata(ts_data) |>
    tibble::as_tibble()
  tibble::tibble(date = dates) |>
    dplyr::bind_cols(values)
}

HoltWinters_to_df <- function(fcst) {
  xs <- ts_to_df(fcst$model$x) |>

dankkom

import argparse
import datetime as dt
import getpass
import os
import subprocess
import zlib
from pathlib import Path


def compute_crc32(filepath: Path) -> dict[str, str]:

dankkom

import argparse
import re
import shutil
import zipfile
from pathlib import Path


def decompress(filepath: Path) -> Path:
    dest_filepath = Path(filepath.stem)
    with zipfile.ZipFile(filepath, "r") as zf:

dankkom

import sys
import csv
import json


# Converts the JSON output of a PowerBI query to a CSV file
def extract(input_file, output_file):
    input_json = read_json(input_file)
    data = input_json["results"][0]["result"]["data"]
    dm0 = data["dsr"]["DS"][0]["PH"][0]["DM0"]

dankkom

import datetime as dt


def carnaval_date(year: int) -> tuple[dt.date]:
    # https://www.vivaolinux.com.br/script/Calcular-a-data-do-Carnaval-e-da-Pascoa
    x = 24
    y = 5
    a = year % 19
    b = year % 4
    c = year % 7

dankkom

decodificar_datasus_idade <- function(nu_idade_n) {
  nu_idade_n <- as.character(nu_idade_n)
  nu_idade_n[nu_idade_n == "000" | nu_idade_n == "999"] <- NA
  unidade <- substr(nu_idade_n, 1, 1)
  idade <- ifelse(
    unidade == 1,
    as.numeric(substr(nu_idade_n, 2, 3)) / (24*365), # horas
    ifelse(
      unidade == 2,
      as.numeric(substr(nu_idade_n, 2, 3)) / 365, # dias

dankkom

import datetime


def convert_brl_date(value: float, date: datetime.date) -> float:
    """Convert brazillian currency to Real (BRL), given the date of the value.
    Works with dates from 1942-11-01 to today.
    """
    if date >= datetime.date(1994, 7, 1):  # R$
        return value
    elif date >= datetime.date(1993, 8, 1):  # CR$

dankkom

apt update
apt install -y build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev libsqlite3-dev wget libbz2-dev liblzma-dev

PYTHON_VERSION=3.10.1
N_PROCESSORS=$(nproc)

wget https://www.python.org/ftp/python/$PYTHON_VERSION/Python-$PYTHON_VERSION.tgz

tar -xf "Python-$PYTHON_VERSION.tgz"
cd "Python-$PYTHON_VERSION"