준비 완료 themeSelector for Shiny

Question

사용자가 밝고 어두운 테마를 사용하여 사용자가 UI에서 선택할 수있는 Shiny App을 만들어야합니다. RStudio의 사이트에서 페이지 세부 내용은 themes이고 themeSelector()이지만 "테마 선택기는 응용 프로그램을 개발하는 동안에 만 사용할 수 있습니다." 프로덕션 준비가 된 테마를 동적으로 변경할 수있는 라이브러리가 있습니까?

Answer 1

개발 중에 만 사용해야 할 수도 있지만 프로덕션 환경에서 사용할 수없는 이유는 없습니다. code을 살펴보면 head 섹션의 stylesheet link을 찾고 변경하는 것입니다.

javaScript을 사용하는 것 이외의 다른 방법은 없으므로 이미 작성한 것을 사용하십시오.

당신은 themeSelector 기능이 같은 간단한 selectInput에 드래그 고정 패널에서 변경 수정할 수 :

library(shiny) 
library(shinythemes) 

themeSelector <- function() { 
    div(
     div(
     selectInput("shinytheme-selector", "Choose a theme", 
        c("default", shinythemes:::allThemes()), 
        selectize = FALSE 
     ) 
    ), 
     tags$script(
     "$('#shinytheme-selector') 
     .on('change', function(el) { 
     var allThemes = $(this).find('option').map(function() { 
     if ($(this).val() === 'default') 
     return 'bootstrap'; 
     else 
     return $(this).val(); 
     }); 
     // Find the current theme 
     var curTheme = el.target.value; 
     if (curTheme === 'default') { 
     curTheme = 'bootstrap'; 
     curThemePath = 'shared/bootstrap/css/bootstrap.min.css'; 
     } else { 
     curThemePath = 'shinythemes/css/' + curTheme + '.min.css'; 
     } 
     // Find the <link> element with that has the bootstrap.css 
     var $link = $('link').filter(function() { 
     var theme = $(this).attr('href'); 
     theme = theme.replace(/^.*\\//, '').replace(/(\\.min)?\\.css$/, ''); 
     return $.inArray(theme, allThemes) !== -1; 
     }); 
     // Set it to the correct path 
     $link.attr('href', curThemePath); 
     });" 
    ) 
    ) 
    } 

ui <- fluidPage(
    fluidRow(
    column(4, themeSelector()) 
) 
) 

server <- function(input, output) { 

} 

shinyApp(ui, server)