如何在没有索引号的情况下获取数据

Question

我通过在server.r上的ui.r和output$oaccura<-renderPrint({a3}) 上使用得到值[1] 0.7976529，但是我想要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))