小编sgr*_*yon的帖子

当德语引号（„ 和 “ 或 HTML 代码„and “，请参阅https://unicode-table.com/de/201E/和https://unicode-table.com/de/201C/）位于粗体文本标记之间时**...**，然后当我在 RStudio 中编织时 pandoc 不会将文本呈现为粗体。更糟糕的是，**s 在 HTML 文档中被逐字打印。

例子：

---
output: html_document
lang: de
---

This is a **„Test“**.

Another **„Test“**.

This **"just works"**.

结果：

是否有任何 pandoc 选项或解决方法可以解决此问题？

请注意，在r-markdown: Germanquotes 中为 PDF 输出回答了类似的问题。但我需要 HTML 输出。

我正在构建一个包含DT表格和滑块（均作为输入）以及绘图输出的 UI 。这些表格用于从多个表格中进行选择。用户只能选择一个单元格进行选择。

我希望用户能够存储表格和滑块的设置，因为它们非常复杂。例如，这个想法是用户可以在两个存储的设置之间来回切换，并查看结果图如何变化。当用户恢复设置时，表格和滑块会更新，从而更新绘图。

问题是绘图不是更新一次，而是通常两次。似乎逻辑中的某处存在延迟，导致 Shiny 首先对滑块的更新做出反应，然后对表格的更新做出反应，因此分两步重新绘制绘图。这很烦人，原因有两个：(1) 它导致计算重新运行两次，使应用程序的反应速度减慢两倍；(2) 无法直接在图中看到变化，因为原始图首先被替换为对用户没有意义的中间图。

为了说明这个问题，我创建了这个最小的工作示例，我将复杂性降低到只有一张表和一个滑块。我添加了一个 3 秒Sys.sleep来模拟一个长计算，因为显然否则人们不会看到问题：

library(shiny)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("button", "Preset"),
      # No problem with selectInput:
      # selectInput("select", "x", choices = names(iris)[1:4], selected = "Sepal.Length"),
      DT::dataTableOutput("table"),
      sliderInput("slider", "bins", min = 1, max = 50, value = 30)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$button, {
    # updateSelectInput(session, "select", selected =  "Petal.Width")
    selectRows(DT::dataTableProxy("table"), 4)
    updateSliderInput(session, "slider", value = 15)
  })

  output$table …