fixing unexpected curly brackets in R

Question

I\'ve written the following code:

extract_distract <- function(dataset, type="increase"){
  if(dataset = wfh){
    if(type = "decrease"