Nhận đầu vào từ người dùng

Trong bài học trước, bạn đã tạo lời chào cho Máy tính chia hóa đơn. Bây giờ, hãy thêm chức năng nhận đầu vào của người dùng để tính hóa đơn.

Sau lời chào hiện có, hãy đọc ba đầu vào từ người dùng:

1. Tổng số tiền hóa đơn
2. Phần trăm tiền boa (dưới dạng số nguyên, ví dụ: 15 tương ứng với 15%)
3. Số người cùng chia hóa đơn

Trong các tập lệnh R chạy không tương tác (như trên nền tảng này), đầu vào được đọc từ luồng đầu vào tiêu chuẩn. Để làm việc này, trước tiên hãy mở kết nối đến stdin bằng file(), sau đó đọc từng dòng bằng readLines() và đóng kết nối khi hoàn tất:

con <- file("stdin", "r")
bill <- as.numeric(suppressWarnings(readLines(con, n = 1)))
tip_percent <- as.numeric(suppressWarnings(readLines(con, n = 1)))
people <- as.numeric(suppressWarnings(readLines(con, n = 1)))
close(con)

Chức năng của từng phần như sau:

• file("stdin", "r"): mở luồng đầu vào tiêu chuẩn để đọc và lưu luồng đó vào con
• readLines(con, n = 1): đọc chính xác một dòng từ kết nối đó. Lưu ý: readLines() khác với readline(): readLines() hoạt động với các kết nối tệp (bao gồm cả stdin) và có thể đọc nhiều dòng cùng lúc bằng cách dùng n =, còn readline() chỉ hoạt động tương tác trong bảng điều khiển R
• suppressWarnings(...): ẩn các cảnh báo không gây hại xuất hiện khi đọc từ stdin theo cách này. Khi R đọc từ stdin trong một tập lệnh, đôi khi R tạo cảnh báo như "incomplete final line" dù mọi thứ vẫn hoạt động chính xác. Bọc lời gọi bằng suppressWarnings() sẽ ẩn những thông báo này để chúng không làm rối đầu ra. Việc này không ảnh hưởng đến các giá trị được đọc
• as.numeric(...): chuyển đổi đầu vào dạng văn bản thành một số
• close(con): đóng kết nối sau khi đọc tất cả đầu vào

Lưu ba giá trị vào các biến có tên bill, tip_percent và people.

Sau khi đọc các đầu vào, hãy hiển thị thông báo xác nhận cho biết những gì đã được nhập theo định dạng sau:

Bill: $[bill]
Tip: [tip_percent]%
People: [people]

Dùng cat() cho tất cả đầu ra và thêm ký tự xuống dòng \n ở những chỗ cần thiết. Dùng sep = "" trong mỗi lời gọi cat() để tránh khoảng trắng không mong muốn.

Theo mặc định, cat() chèn một khoảng trắng giữa mỗi mục được in ra. Ví dụ:

cat("Bill: $", 120, "\n")   # prints: Bill: $ 120 

Lưu ý các khoảng trắng không mong muốn giữa $ và 120, cũng như trước ký tự xuống dòng. Thêm sep = "" sẽ yêu cầu cat() dùng chuỗi rỗng làm dấu phân cách, vì vậy không có gì được chèn giữa các mục:

cat("Bill: $", 120, "\n", sep = "")   # prints: Bill: $120

Áp dụng cách này cho cả ba dòng xác nhận:

cat("Bill: $", bill, "\n", sep = "")
cat("Tip: ", tip_percent, "%\n", sep = "")
cat("People: ", people, "\n", sep = "")

Ví dụ, nếu các đầu vào là 120, 18 và 4, đầu ra đầy đủ sẽ là:

Welcome to the Bill Split Calculator!
Let's split your bill fairly.
Bill: $120
Tip: 18%
People: 4