R 而外观结果没有打印出来

在下面没有显示结果时，有人能帮我吗

col_name <- c("A", "B", "C", "D")
i <- 1
while (i < length(col_name)) {
    col_name[i]
     i = i+1
 }

---

它需要

打印

while (i < length(col_name)) {
  print(col_name[i])
 i = i+1
}

#[1] "A"
#[1] "B"
#[1] "C"

while（i

---

如果我们需要存储输出，初始化一个对象并更新

out <- c()
i <- 1
while (i < length(col_name)) { out <- c(out, col_name[i]); i = i+1}
out
#[1] "A" "B" "C"

---

out我知道：）但这是我想在shiny中使用的东西。所以如果我使用打印。它在R控制台中打印，而不是在application:）@imranp中。如果要存储输出，请创建一个对象。更新了帖子
out <- c()
i <- 1
while (i < length(col_name)) { out <- c(out, col_name[i]); i = i+1}
out
#[1] "A" "B" "C"