R语言脚本无法直接执行，只能打开脚本后才能运行

在做自动化输出的时候出现了一个问题。
在R-Gui中“文件”-“运行R脚本文件”或输入“source("C:\Users\qyxiaoe\Desktop\programing.R")”时无运行结果。
但使用“文件”-“打开程序脚本”后“编辑”-“运行所有代码”可以有正常的结果输出。
问下大神们，这种情况是安装出现问题了吗？该如何调试？

#! D:/Program Files/R/R-3.6.2/bin/Rscript 

sink(file="C:/Users/qyxiaoe/Desktop/output.txt",append = TRUE, split = TRUE)
cat("#",date(),"\n#\n#------------------------------------------\n",append=F)
#a<-paste('output_',Sys.Date(),'.txt')
#dir.create("C:/Users/qyxiaoe/Desktop/output/")
#setwd("C:/Users/qyxiaoe/Desktop/output/")
#sink(a)

library(xlsx)
mydata<-read.xlsx(file.choose(),1,header=T,encoding="UTF-8")
mydata
anyNA(mydata)
#mydata <- na.exclude(mydata)
sink()
system("open C:/Users/qyxiaoe/Desktop/output.txt")

https://blog.csdn.net/zhengyunchang