##PowerShell, <s>170</s> <s>167</s> 166

    [int]$x,[int]$y,$e,$m="$input"-split'\W'
    $d='NESW'.indexof($e)
    switch([char[]]$m){'R'{$d++}'L'{$d--}'M'{iex(-split'$y++ $x++ $y-- $x--')[$d%4]}}
    "$x,$y,"+'NESW'[$d%4]

Not well-golfed so far.