如何获得没有索引号的数据

Question

我在ui.r和verbatimTextOutput("oaccura")上使用output$oaccura<-renderPrint({a3})获得了值[1] 0.7976529 在server.r但我想要0.7976529。如何获取数据并添加动态css。

Answer 1

也许您可以使用renderText代替

library(shiny)
a3 <- 0.7976529
ui  <- fluidPage(verbatimTextOutput("oaccura"))
server <- function(input, output, session) {
  output$oaccura <- renderText({a3})
}
runApp(list(ui = ui, server = server))