Hiding the code in the console except prints and user inputs when running

Question

I have created a small quizz in R where questions are asked and answerd in the console output of RStudio.

quiz <- function() {

data <- read.xlsx2(paste