R Shiny应用仅显示侧边栏，数据表格无法显示求助

开发者阿泽

2026-7-21

问题原因及修复方案

核心问题

代码中sidebarPanel内使用htmlOutput("<br>")是错误用法：htmlOutput用于输出服务器端生成的HTML内容，需要接收输出ID字符串，而非直接传入HTML标签。这种错误导致UI布局解析异常，主面板无法正常渲染。

修复步骤

替换错误的换行方式：将htmlOutput("<br>")改为tags$br()（Shiny内置标签函数），或直接使用HTML("<br>")；
可选：若仍存在布局挤压，可手动设置sidebarPanel(width = 3)和mainPanel(width = 9)调整宽度比例。

修复后的完整代码

library(openxlsx)
library(shiny)
library(DT)

df <- read.xlsx("sayings.xlsx", sheet = 1)
colnames(df)[2:3] <- c("English text", "Original text")

ui <- fluidPage(
  titlePanel("Idioms and Sayings"),
  
  sidebarLayout(
    sidebarPanel( 
      tags$br(),
      actionButton("all", label = "Show all"),
      tags$br(),
      actionButton("lang", label = "Search by language")
    ),
    
    mainPanel(
      DT::dataTableOutput("maintab")
    )
  )
)

server <- function(input, output) {
  output$maintab <- DT::renderDataTable(df)
}

shinyApp(ui, server)