R - 功能输出省略

Question

如果我调用以下函数，则不显示输出“test”。为什么以及如何解决？

test <- function()
{
  setwd("specdata")

  s <- "test"
  s

  setwd("..")
}