将文本与闪亮仪表板的最右侧区域对齐：R

Question

DATA

我想在仪表板最右边的区域添加文本，文本应该覆盖所有右边的空格列。

    dashboardPage(skin="yellow",
  dashboardHeader(title = "Wheat Price dashboard  ),
   dashboardSidebar(
      sidebarMenu( 
  menuItem("Punjab-khanna", tabName = "dashboard", icon = icon("area-chart"))
       )
       ),
   dashboardBody(
         tabItems(
       tabItem(tabName = "dashboard",
          fluidPage(
            titlePanel("Wheat DARA"),
             mainPanel(fluidRow(
              box( side="right",
                           tabPanel("Price chart", dygraphOutput("plot1")

              )
            ),box(side = "right",height="250px",includeMarkdown("read.md")))

          ) )
          )
  ))

)

SERVER.R

   d1<-read_excel("data/Wheat data forecasted.xlsx",sheet = 1,col_names =   
       TRUE)
   #stock
   d2 <-subset(d1, select = c(1,2,3,4,5))
  #last
  d1 <-subset(d1, select = c(1,5,6,7))
  d1$`Date GMT` <- as.POSIXct(d1$`Date GMT`, format = "%Y-%m-%d", tz="GMT")
  ts1 <- irts(time=d1$`Date GMT`,value=as.matrix(d1[,2:4]))
  #stock
  d2$`Date GMT` <- as.POSIXct(d2$`Date GMT`, format = "%Y-%m-%d", tz="GMT")
   ts2 <- irts(time=d2$`Date GMT`,value=as.matrix(d2[,2:5]))

   shinyServer(function(input, output) {
   output$plot1 <- renderDygraph({   
  dygraph(ts1) %>% 
  dyRangeSelector() %>% 
  dyLegend(show = "always", hideOnMouseOut = FALSE) %>%
  dyHighlight(highlightCircleSize = 5) %>%
  dyOptions(axisLineColor = "navy", gridLineColor = "grey")
 })


  } ) 

我无法将它安排到右侧。

注意：我写了不同的文本（来自图像），但将文本排列到仪表板最右侧区域的任务是相同的

Answer 1

我自己添加了一个最小的可重现代码。请检查。您只需使用 fluidrow 和 column 与 width 值一起玩。

if(interactive()) {



## app.R ##
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      column(

      column(
        fluidRow(
          box(plotOutput("plot1"))
        ),
        fluidRow(
          box(plotOutput("plot2"))
        ),
        width = 10
      ),

      column(
        h3(
          textOutput('text1')
        ),
        width = 2
      ),
      width = 12
      )

    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$plot1 <- renderPlot({

    hist(histdata)
  })


  output$plot2 <- renderPlot({

    hist(histdata)
  })

  output$text1 <- renderText({
    "Uniform: These functions provide information about the uniform distribution on the interval from min to max. dunif gives the density, punif gives the distribution function qunif gives the quantile function and runif generates random deviates."
  })



}

shinyApp(ui, server)

}

源代码修改：

请像下面这样修改您的仪表板输入。它也有 plot2，因为你最初的问题有一个。

dashboardBody(
  # Boxes need to be put in a row (or column)
  fluidRow(
    column(

      column(
        fluidRow(
          tabPanel("Price chart", dygraphOutput("plot1")
        ),
        fluidRow(
          plotOutput("plot2")
        ),
        width = 10
      ),

      column(
        h3(
          includeMarkdown("read.md")
        ),
        width = 2
      ),
      width = 12
    )

  )
)