Question

所以我有这个功能，可以打印一系列句子：

summary_library=function(taxon19){
  cat(paste("Number of specimens with A grade:",as.numeric(length(which(taxon19$grade=="A")))," ","Percentage:",signif((as.numeric(length(which(taxon19$grade=="A"))*100)/length(taxon19$species)),digits=3),"%"),
  paste("Number of specimens with B grade:",as.numeric(length(which(taxon19$grade=="B")))," ","Percentage:",signif((as.numeric(length(which(taxon19$grade=="B"))*100)/length(taxon19$species)),digits=3),"%",collapse="\n"),
  paste("Number of specimens with C grade:",as.numeric(length(which(taxon19$grade=="C")))," ","Percentage:",signif((as.numeric(length(which(taxon19$grade=="C"))*100)/length(taxon19$species)),digits=3),"%",collapse="\n"),
  paste("Number of specimens with D grade:",as.numeric(length(which(taxon19$grade=="D")))," ","Percentage:",signif((as.numeric(length(which(taxon19$grade=="D"))*100)/length(taxon19$species)),digits=3),"%",collapse="\n"),
  paste("Number of specimens with E grade:",as.numeric(length(which(taxon19$grade=="E")))," ","Percentage:",signif((as.numeric(length(which(taxon19$grade=="E"))*100)/length(taxon19$species)),digits=3),"%",collapse="\n"),
  paste("Number of different species:",length(unique(taxon19$species)),collapse="\n"),
  paste("Number of different BIN numbers:",length(unique(taxon19$BIN)),collapse="\n"),
  paste("Number of different collectors:",length(unique(taxon19$collectors)),collapse="\n"),
  paste("Number of different countries:",length(unique(taxon19$country)),collapse="\n"),
  paste("Total Number of specimens in reference library:",length(taxon19$species),collapse="\n"),sep="\t")
}

然后在UI中，我有以下输出和操作按钮：

tags$div(style="text-align:justify",tags$h4(textOutput("summary")))
actionBttn("clicks3",size="sm",label="SUMMARY")

最后我渲染了照片：

summary_reac<-eventReactive(input$clicks3,{summary_library(taxon19)})
output$summary <- renderPrint({ summary_reac() })

我想要的是使闪亮的应用程序逐行显示这些打印件，或者逐个显示内部粘贴的内容，但是不起作用预先感谢您的任何回答 PS：“ taxon19”只是一个带有正在打印值的数据集

如何在闪亮的应用程序的用户自定义功能中打印多行文本？

0 个答案: