删除ShinydashboardPlus中的左侧边栏仅保留右侧

编程问答 2022-06-15

问题描述

是否可以完全删除sidebar中左侧的shinydashboardPlus但保留右侧？

我尝试省略对参数sidebar的调用，但是此参数是必需的，因此会出现错误。我想要实现这一目标（没有左侧边栏只有一个右侧边栏）。

enter image description here

示例代码 

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
data(iris)

header <- dashboardHeaderPlus(
  enable_rightsidebar = TRUE,rightSidebarIcon = "filter"
)

sidebar <- dashboardSidebar(selectInput(inputId = "slect",label = "Selection Menu",selected = "a",choices = LETTERS[1:3])
)

body <- dashboardBody(fluidPage(plotOutput( "scatter",height = "700px",width = "700px")))

rightsidebar <- rightSidebar()

ui <- dashboardPagePlus(header,sidebar,body,rightsidebar)

server <- function(input,output) {
    output$scatter <- renderPlot({
    plot(iris$Petal.Length,iris$Petal.Width,pch=21)
      cats <- levels(iris$Species)
      cols <- c("red","blue","yellow2")
      ind <- lapply(cats,function(z) which(iris$Species == z))
      for (i in seq(cats)) {
        points(iris$Petal.Length[ind[[i]]],iris$Petal.Width[ind[[i]]],pch = 19,col = cols[i])
      }
    })
}

shinyApp(ui,server)

会话信息：

> sessionInfo()
R version 4.0.0 (2020-04-24)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Catalina 10.15.6

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8

attached base packages:
[1] stats4    parallel  stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] shinydashboardPlus_0.7.5 shinydashboard_0.7.1     shinyWidgets_0.5.3       dendextend_1.13.4       
 [5] tidyr_1.1.0              patchwork_1.0.1          ggplot2_3.3.1            shinyhelper_0.3.2       
 [9] colorspace_1.4-1         colourpicker_1.0         shinythemes_1.1.2        DT_0.13                 
[13] shiny_1.4.0.2            dplyr_1.0.0              MSnbase_2.14.2           ProtGenerics_1.20.0     
[17] S4Vectors_0.26.1         mzR_2.22.0               Rcpp_1.0.4.6             Biobase_2.48.0          
[21] BiocGenerics_0.34.0

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

rrshinyshinydashboard