小编Jas*_*son的帖子

我正在使用Rshinydashboard,当我尝试使用includeHTML在我的应用程序中包含一个html文档时,我遇到了一个问题.一旦menuItems&menSubItems被展开,它们就无法收回.我已经探索了其他解决方案,但没有找到.如果你有任何想法可能是什么问题或有另一种方式在应用程序中包含HTML报告,我将不胜感激.如果可以,请参阅下面的代码并提供帮助!

创建一个RMD文件来创建一个html报告(如果你没有一个人躺着)

---
title: "test"
output: html_document
---
## Test HTML Document
This is just a test.

构建测试html报告

# Build Test HTML file
rmarkdown::render(
  input = "~/test.rmd",
  output_format = "html_document",
  output_file = file.path(tempdir(), "Test.html")
)

构建测试应用程序

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      id = "sidebarmenu",
      menuItem(
        "A", tabName = "a",  icon = icon("group", lib="font-awesome"),
        menuSubItem("AA", tabName = "aa"),
        conditionalPanel(
          "input.sidebarmenu === 'aa'",
          sliderInput("b", "Under sidebarMenu", 1, 100, 50)
        ),
        menuSubItem("AB", tabName = "ab")
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = …

如何使用 openxlsx 创建一个 excel 文件，其中数字格式包括逗号千位分隔符和 2 个小数位？我已经尝试了下面的代码，但在格式上没有运气。

# Create Customer Dataset
cust <- data.table(Customer = c("Sue", "Ben", "Jason", "Cody"), Sales = 
c(5654.3456, 29384.4, 729, .4093))

# Start Workbook
wb <- createWorkbook()

# Set Sheet Name
sheet = "Customers Report"

# Initiate worksheet within workbook
addWorksheet(wb = wb, sheet = sheet)

# Add Formatting to Spreadsheet
addStyle(wb = wb, sheet = sheet, style = createStyle(numFmt = "NUMBER"), rows = 2:6, cols = 2)
addStyle(wb = wb, sheet = sheet, style = …