我使用下面的server.R代码在主面板中显示文本.这正是它应该工作的方式.
output$text1 <- renderText({
if(input$ag == 0) return(NULL)
return('First 20 rows for requested AG')
})
有没有办法改变文本的字体和 colored颜色 ？
我使用下面的server.R代码在主面板中显示文本.这正是它应该工作的方式.
output$text1 <- renderText({
if(input$ag == 0) return(NULL)
return('First 20 rows for requested AG')
})
有没有办法改变文本的字体和 colored颜色 ？
您可以按照@jbaums的指示使用css
library(shiny)
runApp(list(
ui = bootstrapPage(
numericInput('n', 'Number of obs', 100),
textOutput('text1'),
tags$head(tags$style("#text1{color: red;
font-size: 20px;
font-style: italic;
}"
)
)
),
server = function(input, output) {
output$text1 <- renderText({ paste("hello input is",input$n) })
}
))
通常情况下，您会将其包含在一个styles.css文件中，但这里的内联显示是自包含的.#text1用id=text1表示DOM元素，大括号中的内容是相关的样式.