EVOLUTION-MANAGER

Edit File: readr.R

## ---- include = FALSE----------------------------------------------------
library(readr)
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ------------------------------------------------------------------------
parse_integer(c("1", "2", "3"))
parse_double(c("1.56", "2.34", "3.56"))
parse_logical(c("true", "false"))

## ------------------------------------------------------------------------
parse_number(c("0%", "10%", "150%"))
parse_number(c("$1,234.5", "$12.45"))

## ------------------------------------------------------------------------
parse_datetime("2010-10-01 21:45")
parse_date("2010-10-01")
parse_time("1:00pm")

## ------------------------------------------------------------------------
parse_datetime("1 January, 2010", "%d %B, %Y")
parse_datetime("02/02/15", "%m/%d/%y")

## ------------------------------------------------------------------------
parse_factor(c("a", "b", "a"), levels = c("a", "b", "c"))
parse_factor(c("a", "b", "d"), levels = c("a", "b", "c"))

## ------------------------------------------------------------------------
guess_parser(c("a", "b", "c"))
guess_parser(c("1", "2", "3"))
guess_parser(c("1,000", "2,000", "3,000"))
guess_parser(c("2001/10/10"))

## ------------------------------------------------------------------------
guess_parser("$1,234")
parse_number("1,234")

## ------------------------------------------------------------------------
x <- spec_csv(readr_example("challenge.csv"))

## ------------------------------------------------------------------------
mtcars_spec <- spec_csv(readr_example("mtcars.csv"))
mtcars_spec

cols_condense(mtcars_spec)

## ------------------------------------------------------------------------
x <- spec_csv(readr_example("challenge.csv"), guess_max = 1001)

## ------------------------------------------------------------------------
df1 <- read_csv(readr_example("challenge.csv"))

## ------------------------------------------------------------------------
problems(df1)

## ------------------------------------------------------------------------
df2 <- read_csv(readr_example("challenge.csv"), guess_max = 1001)

## ------------------------------------------------------------------------
#> Parsed with column specification:
#> cols(
#>   x = col_integer(),
#>   y = col_character()
#> )

## ------------------------------------------------------------------------
spec(df1)
spec(df2)

## ------------------------------------------------------------------------
df3 <- read_csv(
  readr_example("challenge.csv"), 
  col_types = cols(
    x = col_double(),
    y = col_date(format = "")
  )
)