鍦≧璇█涓紝鍙互浣跨敤scan()鍑芥暟鏉ヨ緭鍏ユ暟鎹€?/p>

scan()鍑芥暟鐨勫熀鏈敤娉曟槸锛?code>scan(file = "", what = double(), nmax = -1, n = -1, sep = "", dec = ".", quote = "\"'", skip = 0, na.strings = "NA", flush = FALSE, fill = FALSE, strip.white = FALSE, quiet = FALSE, blank.lines.skip = TRUE, multi.line = TRUE, comment.char = "#", allowEscapes = FALSE, encoding = "unknown")

浠ヤ笅鏄娇鐢?code>scan()鍑芥暟杈撳叆鏁版嵁鐨勬楠わ細

1. 浣跨敤scan()鍑芥暟锛屽苟灏嗚緭鍏ョ殑鏁版嵁璧嬪€肩粰涓€涓彉閲忋€?/li>
2. 鍦ㄦ帶鍒跺彴杈撳叆鏁版嵁锛屾瘡涓暟鎹箣闂寸敤绌烘牸鎴栨崲琛岀鍒嗛殧銆?/li>
3. 鍦ㄦ渶鍚庤緭鍏ユ暟鎹悗锛屾寜涓嬪洖杞﹂敭浠ョ粨鏉熻緭鍏ャ€?/li>
4. 閫氳繃鎵撳嵃璇ュ彉閲忔潵鏌ョ湅杈撳叆鐨勬暟鎹€?/li>

涓嬮潰鏄竴涓ず渚嬶細

# 杈撳叆鏁存暟鍨嬫暟鎹?/span>
x <- scan()
1 2 3 4 5
# 杈撳嚭杈撳叆鐨勬暟鎹?/span>
print(x)

杈撳嚭锛?/p>

[1] 1 2 3 4 5

鍦ㄨ繖涓ず渚嬩腑锛屾垜浠€氳繃scan()鍑芥暟杈撳叆浜嗕竴缁勬暣鏁板瀷鏁版嵁锛屽苟灏嗗叾璧嬪€肩粰鍙橀噺x銆傜劧鍚庯紝閫氳繃鎵撳嵃鍙橀噺x锛屾垜浠彲浠ョ湅鍒拌緭鍏ョ殑鏁版嵁銆?/p>