Carousel Error in R shiny

[Ankush]

Hi to everybody,

I am trying to make carousel from my data. While running the R shiny, it is showing the error-

Error in FUN(X[[i]], ...) : Expected tag to be of type li

Can anybody help me?

[nirgrahamuk]

Have you tried running an example code?

[Ankush]

Yes.
What I am trying to do is to show my boxes as carousel. But unable to. Can anybody guide me in that?

[nirgrahamuk]

@Ankush

Yes

Which example code did you try as your basis?

[Ankush]

This one,

# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinydashboard)
 shinyApp(
   ui = dashboardPagePlus(
     header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
     ),
     sidebar = dashboardSidebar(),
     body = dashboardBody(
      carousel(
       id = "mycarousel",
       carouselItem(
        caption = "Item 1",
        tags$img(src = "http://placehold.it/900x500/3c8dbc/ffffff&text=I+Love+Bootstrap")
       ),
       carouselItem(
        caption = "Item 2",
        tags$img(src = "http://placehold.it/900x500/39CCCC/ffffff&text=I+Love+Bootstrap")
       )
      )
     ),
     rightsidebar = rightSidebar(),
     title = "Right Sidebar"
   ),
   server = function(input, output) { }
 )
}
# }

I have data table and I want to show that in carousel like a slide show. but unable to.

[nirgrahamuk]

library(shiny)
# library(shinydashboard)
library(DT)
library(shinydashboardPlus)
shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
      tags$head(
        tags$style(HTML("
      #mycarousel {
        width:900px;
        height:600px;
        }
    .carousel-control{
      color:#FF0000;
    }
    "))
      ),
      carousel(
        id = "mycarousel",
        carouselItem(
          DT::dataTableOutput("show_iris_dt")
        ),
        carouselItem(
          caption = "Item 2",

          tags$img(src = "http://placehold.it/900x500/39CCCC/ffffff&text=I+Love+Bootstrap")
        )
      )
    ),
    rightsidebar = rightSidebar(),
    title = "Right Sidebar"
  ),
  server = function(input, output) {
    output$show_iris_dt <- renderDT({
      datatable(iris)
    })
  }
)

[Ankush]

Thanks , I was looking for this only.
Also, is there any way we can remove the borders of tables?