library(dplyr)
mtcars %>%
  filter(cyl = 6)

## Error: Problem with `filter()` input `..1`.
## x Input `..1` is named.
## ℹ This usually means that you've used `=` instead of `==`.
## ℹ Did you mean `cyl == 6`?

library(dplyr)
# Why does this return no records?!
dogs %>%
  filter(is_cute)

## # A tibble: 0 x 1
## # … with 1 variable: is_cute <lgl>

library(dplyr)
library(ggplot2)
library(readxl)
library(tidytext)
library(janitor)
library(lubridate)
# Read data
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
# Clean data 
data <- data %>%
  clean_names() # Make names look nice
# Add year
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.

library(dplyr)
library(ggplot2)
library(readxl)
library(tidytext)
library(janitor)
library(lubridate)
# Read data
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
# Clean data 
data <- data %>%
  clean_names() # Make names look nice
# Add year
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.

library(dplyr)
library(ggplot2)
library(readxl)
library(tidytext)
library(janitor)
library(lubridate)
# Read data
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
# Clean data 
data <- data %>%
  clean_names() # Make names look nice
# Add year
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.

library(dplyr)
library(readxl)
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.

what if i don't know what code to include?

add one line until it breaks

remove one line until it works... then add back the broken line

library(dplyr)
library(readxl)
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

make fake data inline

library(dplyr)
tibble(x = c(1, 2), y = c(2, 4))

## # A tibble: 2 x 2
##       x     y
##   <dbl> <dbl>
## 1     1     2
## 2     2     4

tribble(
  ~x, ~y,
  1, 2, 
  2, 4
)

## # A tibble: 2 x 2
##       x     y
##   <dbl> <dbl>
## 1     1     2
## 2     2     4

library(dplyr)
library(readxl)
setwd("/Users/sharla/Documents/my_work_folder/project_1/data")
data <- read_xlsx("Export 2021-01-02 V5.xlsx")
data %>%
  mutate(year = case_when(date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
                          is.na(date) ~ NA))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.

library(dplyr)
tibble(date = "2020-01-01") %>% 
  mutate(year = case_when(
    date <= "2020-12-31" & date >= "2020-01-01" ~ 2020,
    is.na(date) ~ NA
  ))

## Error: Problem with `mutate()` input `year`.
## x must be a double vector, not a logical vector.
## ℹ Input `year` is `case_when(...)`.