When using rio::import() from a CSV data gets truncated at the first line with an error, in the example case described here, a different number of columns.
This does not happen when using readr::read_csv()
Dataset:
| library(tidyverse) | |
| v1 <- LETTERS[1:20] | |
| v1 | |
| for (i in 1:length(v1)) { | |
| if (i %% 2 == 0) { | |
| v1[i] <- tolower(v1[i]) | |
| } else { | |
| v1[i] <- "-" | |
| } |
| library(tidyverse) | |
| library(palmerpenguins) | |
| ggplot( | |
| penguins, | |
| aes(y = species, group = sex, fill = sex) | |
| ) + | |
| geom_bar(width = .4) + | |
| geom_text(aes(label = paste("Penguin species:", species), x = 0), nudge_y = .3, hjust = 0, size = 6) + | |
| theme_void() + |
| library(tidyverse) | |
| d <- tibble( | |
| id = c(1, 1, 2, 2), | |
| foo = c("oh", "no", "oh", "no"), | |
| bar = c("hmmm", "ok", "right", "sure?") | |
| ) | |
| d %>% | |
| pivot_wider( |
| # Data source: http://ghdx.healthdata.org/record/ihme-data/covid_19_excess_mortality | |
| library(tidyverse) | |
| library(sf) | |
| library(rnaturalearth) | |
| library(ggridges) | |
| library(patchwork) | |
| world_map <- ne_countries(type = "countries", returnclass = "sf") |
| # Using data from https://data.humdata.org/dataset/commuting-zones | |
| library(tidyverse) | |
| library(sf) | |
| library(geodata) | |
| library(patchwork) | |
| peru_map <- gadm("Peru", level = 2, path = ".") %>% | |
| st_as_sf() | |
| csv <- "~/Downloads/data-for-good-at-meta-commuting-zones-july-2021.csv" |
| library(tidyverse) | |
| library(arrow) | |
| # RDS de https://github.com/jmcastagnetto/covid-19-peru-limpiar-datos-minsa | |
| positivos <- readRDS("tmp/positivos_covid_aumentado.rds") %>% | |
| select(id_persona, fecha_resultado, metododx) %>% | |
| distinct() %>% | |
| mutate( | |
| id_persona = as.integer(id_persona) | |
| ) |
| # Ref: https://bydata.github.io/nyt-corona-spiral-chart/ | |
| # https://github.com/bydata/nyt-corona-spiral-chart/blob/main/spiral-chart.R | |
| library(tidyverse) | |
| library(lubridate) | |
| library(ggtext) | |
| library(patchwork) | |
| owid_url <- "https://github.com/owid/covid-19-data/blob/master/public/data/owid-covid-data.csv?raw=true" | |
| country <- "Peru" |
| # Inspirado en https://twitter.com/plenque/status/1475934854269259803 | |
| library(tidyverse) | |
| library(lubridate) | |
| pos_url <- "https://github.com/jmcastagnetto/covid-19-peru-limpiar-datos-minsa/raw/main/datos/positivos_covid_aumentado.rds" | |
| pos <- rio::import(pos_url) | |
| pos_semana <- pos %>% | |
| mutate( |