在Shiny中的图像后添加换行符

Question

我是HTML新手，正在尝试在Shiny中创建一个自定义登录页。

这是我的UI的一个片段，但我无法在图像和文本之间获得额外的换行符。图像和文本渲染良好，但不存在中断。我也尝试过空白标签$p((，但没有成功。

navbarPage("",
tabPanel("Home",
tagList(
tags$img(src="test_vine.jpg", width = "100%", height = "100%", align = "left"),
tags$br(),
tags$br(),
tags$p("this is a test"))),

Answer 1

fluidRow将解决此问题。了解fluidRow的工作可能会解决主要的对齐问题。

ui <- navbarPage("", tabsetPanel(
tabPanel("Home",
tagList(
fluidRow(tags$img(src = "image.png", width = "100%", height = "100%", align = "left")),
tags$br(),
tags$br(),
fluidRow(p("this is a test")))
## Simple way
# fluidRow(img(src = "image.png", align = "left", height = 300, width = 500)),
#  br(),
#  br(),
#  fluidRow("this is a test")
)))