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")
                    )))

在Shiny图片中添加换行符

1 个答案: