R Shiny在UI中直接包含代碼片段（即降價）

Question

我嘗試在我的Shiny應用程序的UI中包含原始SQL代碼片斷，包括代碼突出顯示，但我找不到直接執行此操作的方法。

簡而言之：我讓用戶在下拉列表中選擇一些參數，這會創建一個動態SQL查詢，並且我想打印此查詢以向用戶顯示發生的情況。說明性的例子在這裏：

我在想，包括一塊降價的，因爲它會自動帶來的SQL查詢的代碼高亮，卻找不到一個直接的方式來降價的輸出代碼段。

降價會是這樣：

```sql 
SELECT a 
     ,b 
     ,c 
     ,d 
FROM table1 
``` 

我知道這是可能的include a complete markdown document，使用includeMarkdown(path)。但由於查詢是動態的，我想直接輸出降價內容。

經過相當多的谷歌搜索之後，我找不到在Shiny應用程序中直接輸出（並標記）一些SQL代碼的方法。幫助將不勝感激！

Answer 1

我發現了一個解決這個問題的方法（使用ShinyAce package），它在Shiny應用程序中呈現文本編輯器。

在Shiny中的工作示例可以找到here。

對我來說，這意味着我可以將aceEditor()對象包含在UI.R中，並更新服務器端的SQL語句（簡單的文本）。然後，我可以使用updateAceEditor(session, "ace", value = sqlQuery)更新AceEditor，其中sqlQuery包含純SQL查詢。