shinythemes不踢

Question

我使用的庫shinythemes和創建與主題的UI「團結」

出於某種原因，我無法看到應用到我的閃亮的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){ } 
)