条件分岐を実施した上で文字列置換を行いたい

前提

データベースの前処理を実施しております。添付データフレーム
前処理中にコードを記載しておりますが、うまく思うような結果となりません

実現したいこと

ある列の条件に合致する場合に、他の列のある文字を置換したいと考えております。
具体的には、idにてグループ化したものでd列の１に該当する場合に、Product列の
NをNCに変更したいと考えております。NCに変更後、該当するid７のProductの行の
Cを削除予定です。

発生している問題・エラーメッセージ

意図したものと異なる結果がかえってきます

該当のソースコード

①newdataset1<-newdataset %>% group_by(id) %>%
mutate(product=case_when(
d==1 "NC",
TRUE"else"
))
②newdataset1 <-newdataset %>% group_by(id) %>%
mutate(product = if_else(str_detect(d,1),
"NC"))

### 試したこと 上記①と②のコードを試してみましたが、うまく結果が得られていません。 同サイトの同様の質問も確認しましたが、そちらでもうまくいきませんでした。 ご教示をいただけますと幸いです。