# Packages library(tidyverse) library(rio) # Definição do URL completo para a planilha no github, e inclusão # do parâmetro que impõe leitura dos dados brutos (?raw=true) url_1 <- "https://github.com/FlorestaR/dados/blob/main/X_PIRACLIM" xls_2 <- "DadosClima_Piracicaba.xlsx" prm_3 <- "?raw=true" gitFile <- file.path(url_1, xls_2) %>% paste0(prm_3) # Faz o download da planilha como uma tibble (dataframe) df <- import(file = gitFile) %>% tibble() # importação # Renomeia as colunas com o conteúdo da segunda linha df[1,] colnames(df) <- df[1,] # Deleta a segunda linha df <- df[-c(1),] # Exibe primeiras linhas do dataframe head(df)