2017-02-23 8 views

答えて

0

あなたは\をエスケープする必要があります。

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    tags$head(tags$style(HTML(' 
     .main-header .sidebar-toggle:before { 
     content: "\\f0c7";}'))) 
    ) 
) 

server <- function(input, output) { } 

shinyApp(ui, server) 

私はまた、一般的に他のHTML文字のエスケープを防ぐために、HTMLにCSSを包みます。

関連する問題