Question

我是新手，使用Shiny并且在大多数时候感觉很舒服。但是，我想在网站上显示我的代码和一些结果（而不是图表）。我试过了：

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

其中季后赛是data.frame。

但我在网站上看不到任何结果。

谢谢！

Answer 1

你有几个错误

所以改为运行它，它会起作用。我使用了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)
  })
}

R Shiny出口代码和结果

1 个答案: