Shiny终止后不输出noquote

Question

下面是闪亮代码段。 （整个R脚本为here），它使用print，但是会在控制台上打印，并在闪亮的出口后加上引号。

CustomPal <- function(new_pal){
      ...
      server = function(input,output,session){
      ...
        observeEvent(input$action, {
            ...
            print("Colors stored in variable cherrypickedpalette")
            ...
          }#end !is.null(outputdata)
          ...
}

我将其替换为noquote，因此该字符串不会被引号引起来。不幸的是，该字符串无法打印。

如何解决？

CustomPal <- function(new_pal){
      ...
      server = function(input,output,session){
      ...
        observeEvent(input$action, {
            ...
            noquote("Colors stored in variable cherrypickedpalette")
            ...
          }#end !is.null(outputdata)
          ...
}