UTF-8 file cannot be read by source function in R language running on English Windows 10

Question

I want to execute code including Japanese using the source function in R language. So I prepared the following UTF-8 encoded code without BOM and saved it in test.R.