string - Rで特定の長さ以下の文字列を取得する方法

Question

このような文字列のベクトルがあります

x <- c("WDNTO","WDRN","WDSAX","WECAX","WEN","WEDTO")

私がしたいのは、4文字以内の文字列のみを抽出することです。

  WDNT,WDRN,WDSA,WECA,WEN,WEDT

それを行う方法は何ですか？