a <- "Hello World!"
print(a)

sprintf("Current directory: %s\n", getwd())
cat(sprintf("Current directory: %s\n", getwd()))
message(sprintf("Current directory: %s\n", getwd()))