有光泽的输出问题

Question

我使用闪亮在R中编写脚本，我使用函数write.table和sink()。

但没有任何反应......我根本看不到应该打印的文件。

以下是我脚本的一部分：

output$NewDataPlot<-renderPrint({
  DataSets <<- input$newfile
  InputGOI <<- input$newGOI
  sink("config.txt")

  mydata <- na.omit(DataSet) # listwise deletion of missing
  mydata <- scale(mydata) # standardize variables
  library(cluster)
  mydata<-pam(mydata, 10, diss = inherits(mydata, "dist"), metric = "euclidean",
              medoids = NULL, stand = FALSE, cluster.only = TRUE)
  x<-mydata
  mat<-matrix(0,length(x),2)
  for(i in 1:length(x)){
    mat[i,1]<<-attributes(x[i])$names
    mat[i,2]<<-x[[i]]
  }
  ##Output PAM clustrring
  write.table(mat, file = paste("foo_clustered_pam",p,".txt", sep=""),
              sep = "\t",col.names = FALSE,row.names = FALSE,quote=FALSE)


  cat(path.expand(DataSets))
  cat("\t")
  cat(paste("foo_clustered_pam",p,".txt", sep=""))
  cat("\n")
  sink()
})

这是ui的简短剧本。它用html编写：

      <li>
        <a href="#tab-711-5" data-toggle="tab">New Data Plot</a>
      </li>

      <div class="tab-content">
        <div class="tab-pane" title="NewData" id="tab-711-5">
     <pre id="NewDataPlot" class="shiny-text-output"></pre>
      </div>

但是这里的ui没有必要。我需要将文件写入（将输出）保存脚本的文件夹中。