闪亮的主题没有踢

Question

我正在使用图书馆闪亮主题，并创建一个主题为＆＃34;联合＆＃34;

的用户界面

出于某种原因，我看不到这个主题适用于我的Shiny UI，下面是我的UI代码。

ui = shinyUI(fluidPage(theme=shinytheme("united"),
                       title = 'Research Productivity',
                       tabsetPanel(
                         tabPanel("Test",
                                  fluidRow(
                                    column(width = 2,
                                           h4("Functions"),
                                           wellPanel(
                                             #radioButtons("editingCol0", "Rownames editing", choices = c("Enable" = TRUE, "Disable" = FALSE), selected = FALSE)
                                           )
                                    ),
                                    column(width = 12, 
                                           h4("test_data1"),
                                           d3tfOutput('test_data1', height = "auto")
                                    )
                                    #                                     ),
                                    #                                     column(width = 5,
                                    #                                            
                                    #                                            h4("test_data1 after filtering and editing"),
                                    #                                            tableOutput("filteredtest_data1")
                                    #                                     ) # column
                                  )) # fluidRow 

                       )))

非常感谢有关解决此问题的任何反馈。

Answer 1

你的主题实际上是有效的。但是，您使用的是fluidPage，因此在添加更多组件之前，您不必查看主题元素。

如果您想更清楚地看到它的实际效果，可以使用navbarPage

library(shiny)
library(shinythemes)

shinyApp(ui  = navbarPage(theme=shinytheme("united"),
                                             title = 'Research Productivity',
                                             tabsetPanel(
                                                tabPanel("Test",
                                                        fluidRow(
                                                            column(width = 2,
                                                                    h4("Functions")),
                                                                    column(width = 12,
                                                                    actionButton(inputId = "btn", label = "button"))
                                                                 )
                                                            ) # fluidRow 

                                             )
),

server = function(input, output){ }
)