case_when condition IN -R

Question

I have a data set

I want to use case_when but I am not getting the result I am looking

data <- outputs %>%
  mutate(`Date` = as.Date(`Date`),