如何解决如何通过更改发光的幻灯片来更改文本
我想通过更改幻灯片中的每张照片来更改照片前面的照片名称。 但是使用以下代码,根本不会显示输入的ID。代码如下
library(shinydashboardplus)
ui<- dashboardPagePlus(title="Sample",dashboardHeaderPlus(title="Sample"),dashboardSidebar(),dashboardBody(
fluidRow(column(width=6,carousel(
id = "AA",carouselItem(
caption = "Image1",tags$img(src = "https://cdn.sstatic.net/Sites/stackoverflow/company/Img/logos/so/so-logo.svg?v=a010291124bf",height = 400,width = 400,align="center")
),carouselItem(
caption = "Image2",tags$img(src = "https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png",align="center")
))),column(width=6,uIoUtput("Text"))
)
)
)
server<- function(input,output,session) {
output$Text<-renderText({
Text<-input$AA
as.character(Text)
})
}
shinyApp(ui,server) ```
解决方法
我确实看到他们出现了。更容易查看是否更改了字体大小和颜色:
library(shinydashboardPlus)
library(shinydashboard)
ui<- dashboardPagePlus(title="Sample",dashboardHeaderPlus(title="Sample"),dashboardSidebar(),dashboardBody(
htmltools::tags$style(
".carousel-caption{
font-size: 48px;
color: black;
}"
),fluidRow(column(width=6,carousel(
id = "AA",carouselItem(
caption = "Image1",tags$img(src = "https://cdn.sstatic.net/Sites/stackoverflow/company/Img/logos/so/so-logo.svg?v=a010291124bf",height = 400,width = 400,align="center")
),carouselItem(
caption = "Image2",tags$img(src = "https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png",align="center")
))),column(width=6,uiOutput("Text"))
)
)
)
server<- function(input,output,session) {
output$Text<-renderText({
Text<-input$AA
as.character(Text)
})
}
shinyApp(ui,server)
,
在使用uiOutput
时,请在服务器端尝试renderUI
。另外,要在每个图像中显示不同的文本,您需要定义renderText
并将其输出到carouselItem
中。试试这个代码
library(shinydashboardPlus)
library(shinydashboard)
ui<- dashboardPagePlus(title="Sample",dashboardBody(
tags$head(
tags$style(HTML("
#AA{
width:900px;
height:600px;
}
.carousel-control{
color:#FF0000;
}
.carousel-caption{
font-size: 48px;
color: red;}
"))
),textOutput("text1"),textOutput("text2"),session) {
output$Text<-renderUI({
#Text<-as.character(input$AA)
tagList(
p("I like to print something over all images",style = "color:blue")
)
})
output$text1 <- renderText("Print something in image 1")
output$text2 <- renderText("Print something in image 2")
}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。