Я хочу посмотреть, можно ли в Shiny обернуть текст вокруг изображения. У меня есть блестящая панель управления с вкладкой «О программе» с несколькими абзацами текста и несколькими изображениями. Ниже я написал упрощенную версию концепции. В такой программе, как MS Word, есть несколько различных вариантов того, как изображение может быть встроено в текст и как текст обтекает изображение (см. Рисунок внизу, который я создал в Word).
My Текущее решение состоит в том, чтобы использовать fluidRow () и column (), чтобы разделить страницу и разместить текст отдельно от изображения. Это может сработать, но не обеспечивает такой чистоты конечного продукта, как функции переноса текста в Word.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
# # Dashboard Header
dashboardHeader(title = "Menu"),
#
dashboardSidebar(
sidebarMenu(
menuItem("Example Tab", tabName = "tabA")
)
), # End Dashboard Sidebar
# Body of the dashboard
dashboardBody(
# Start with overall tabItems
tabItems(
tabItem(
tabName = "tabA",
fluidRow(
column(
width = 10,
p("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure
dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.
Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt
mollit anim id est laborum."),
),
column(
width = 2,
img(
height = 100,
src = "https://www.r-project.org/logo/Rlogo.png"
),
), # end column
), # end fluidRow
br(),
br(),
fluidRow(
column(
width = 8,
p("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor
in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur
sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est
laborum. Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis
nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.
Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu
fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa
qui officia deserunt mollit anim id est laborum.")
),
column(
width = 4,
img(
height = 200,
src = "https://www.r-project.org/logo/Rlogo.png"
),
), # end column
), # end fluid row
)
)
)
)
####################################################
####################################################
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)
Пример в MS Word