R 在Shining中的输出问题

我使用shiny在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()
})

---

output$newdataplot请为我们提供一个可复制的示例。在本例中，
ui.r
和
server.r
。另外，不要使用全局变量
“NewDataPlot”或“NewData”？…NewDataPlot，对不起。。。
      <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>