R导出代码和结果

我是新来使用闪亮的，在大多数情况下感觉很舒服。但是，我想在网站上显示我的代码和一些结果（不是情节）。我试过：

ui <- fluidPage(
  textOutput("regression_code") 
)
server <- function(input, output) 
{
  output$regression_code <- renderPrint(
    lm<-lm(playoff$MIN.~playoff$PPG),
    summary(lm)
  )
}    

---

ui你犯了几个错误

所以，运行这个，它就会工作。我使用mtcars是因为我无法访问您的数据集

ui.R
library(shiny)

ui <- fluidPage(
  mainPanel(
  verbatimTextOutput("regression_code"),
  p("model <- lm(mtcars$mpg ~mtcars$cyl)
    summary(model)")

  )
)

server.R
library(shiny)

server <- function(input, output){
  output$regression_code <- renderPrint({

    model <- lm(mtcars$mpg ~mtcars$cyl)
    summary(model)
  })
}

ui.R
图书馆（闪亮）
非常感谢你！但是我只能看到这些代码的结果，我可以看到代码本身吗？因为您的代码没有改变，所以您可以在主面板中添加简单的文本，我只是稍微修改了ui.R，以便您可以看到代码。您可以用h4或h3替换/测试p。别忘了接受答案