如何在沒有索引號的情況下獲取數據

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))