rfsaldanha

# Pacotes
library(tidyverse)
# remotes::install_github("ipeaGIT/geobr", subdir = "r-package")
library(geobr)

# Dados
df_simu_curso_orig <- read.csv('https://drive.google.com/uc?export=download&id=17ZmUSdC0G4S1OUBpqUzllXqPlOLP1pVD')

# Mapa
uf_mapa <- read_municipality()

rfsaldanha

# Pacotes
library(microdatasus)
library(tidyverse)
library(dbplyr)
library(DBI)
library(RSQLite)

# Cria conexão com o banco de dados 
conn <- dbConnect(RSQLite::SQLite(), "sih.SQLite")

rfsaldanha

epifortnight <- function(x){
  x <- as.POSIXlt(x)
  date <- lubridate::make_date(year(x), month(x), day(x))
  wday <- lubridate::wday(x, week_start = 7)
  date <- date + (4 - wday)
  jan1 <- as.numeric(lubridate::make_date(year(date), 1, 1))
  1L + (as.numeric(date) - jan1) %/% 15L
}

rfsaldanha

#!/usr/bin/env bash

LOG_PATH="/home/$(whoami)/log/speedtest.log"

if result=$(/usr/bin/speedtest --simple); then
  parsed_result=$(printf "${result}\"" | sed ':a;N;$!ba;s/\n/" /g' | sed 's/: /="/g')
  printf "[$(date)] ${parsed_result}\n" >> "${LOG_PATH}"
else
  printf "[$(date)] error\n" >> "${LOG_PATH}"
  exit 1