光沢のあるインデックス番号のないデータを取得する方法

Question

ui.rでverbatimTextOutput("oaccura")、そしてserver.rでoutput$oaccura<-renderPrint({a3}) を使用して値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))