如何通过更改发光的幻灯片来更改文本

如何解决如何通过更改发光的幻灯片来更改文本

我想通过更改幻灯片中的每张照片来更改照片前面的照片名称。 但是使用以下代码，根本不会显示输入的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)