반짝 이는 titlepanel : 같은 높이에서 제목과 이미지를 넣는 방법?

Question

제목 패널에는 제목과 이미지가 모두 필요하지만 왼쪽에는 제목이, 오른쪽에는 이미지가 필요합니다. 이 코드를 사용하여 패널에서 모두를 가지고 :

ui <- fluidPage(
    titlePanel(div("Fenologische modellen", 
        img(height = 105, width = 300, src = "logo_pcfruit.jpg")) 
    ), 

을하지만 그들은 바로 옆에 서로에있어. 이미지에 대해 align이 작동하지 않았기 때문에 (또는 "style = ...") 시도해 보았습니다. 먼저 fluidRow가 먼저 필요한 다른 열에 둘 다 넣기로했습니다. 어떻게됩니까

ui <- fluidPage(
    titlePanel( 
    fluidRow( 
     column(4, "Fenologische modellen"), 
     column(4, offset = 8, img(height = 105, width = 300, src = "logo_pcfruit.jpg")) 
    ) 
), 

이미지가 참으로 오른쪽에 배치됩니다,하지만 난 그게 제목과 같은 줄에있을 필요가하면서, 오른쪽 아래에 배치 된 점이다.

내가 픽셀의 열 높이를 조정하려했지만, 특정 높이에서, 그것은 더 이상 변경하지 않았다. 위 그림은 한도를 보여줍니다.

제안 사항?

추 신 : 완전히 흰색이되고 보이지 않게 만들 수 없다면 두 패널을 모두 웰 패널로 그룹화하고 싶지 않습니다.

Answer 1

그럼 WellPanel에서 같은 문제를 해결하려고 시도하면서 직접 알아 냈습니다. 나쁜 사람은 column()에 offset 인수입니다. 제거하면 이미지와 제목이 가로로 정렬됩니다.

오른쪽에있는 이미지를 넣으려면, 난 그냥 매우 넓은 왼쪽 열을해야 :

titlePanel(
    fluidRow(
    column(9, "Fenologische modellen"), 
    column(3, img(height = 105, width = 300, src = "logo_pcfruit.jpg")) 
) 
), 

Answer 2

방법에 대해 :

titlePanel(div("Fenologische modellen", 
       img(height = 105, width = 300, 
        src = "logo_pcfruit.jpg", 
        class = "pull-right"))) 

pull-right 클래스는 당신이 원하는 것을 할 것 같다 부트 스트랩 클래스입니다.