shiny 相关问题

我正在尝试使用Bootstrap示例重新创建shinyWidgets::radioGroupInputs()，但我无法从shiny读取值。 Bootstrap 按钮的基本 HTML 代码是这样的我正在尝试使用 Bootstrap 示例重新创建 shinyWidgets::radioGroupInputs()，但我无法从闪亮中读取值。 Bootstrap 按钮的基本 HTML 代码是这样的 <div class="btn-group" role="group" aria-label="Basic radio toggle button group"> <input type="radio" class="btn-check" name="btnradio" id="btnradio1" autocomplete="off" checked> <label class="btn btn-outline-primary" for="btnradio1">Radio 1</label> <input type="radio" class="btn-check" name="btnradio" id="btnradio2" autocomplete="off"> <label class="btn btn-outline-primary" for="btnradio2">Radio 2</label> </div> 当我获取基本的 shinyWidgets::radioGroupInputs() HTML 输出时，它不起作用，因为 JS 依赖项 (shinyWidgets-bindings.min.js) 未加载。我发现的一个解决方法是（ab-）使用按钮的 onclick。例如，要将上面的代码绑定到 id "ASD"，我们可以使用以下内容： library(shiny) library(bslib) ui <- page_fluid( shiny::HTML(r"{ <div class="form-group shiny-input-checkboxgroup shiny-input-container" role="group"> <div class="shiny-options-group"> <div class="btn-group" role="radiogroup" aria-label="Basic radio toggle button group"> <input type="radio" class="btn-check" name="btnradio" id="btnradio1" autocomplete="off"> <label class="btn btn-outline-primary" name="ASD" for="btnradio1" onclick="Shiny.setInputValue('ASD', 'btnradio1')">Radio 1</label> <input type="radio" class="btn-check" name="btnradio" id="btnradio2" autocomplete="off"> <label class="btn btn-outline-primary" name="ASD" for="btnradio2" onclick="Shiny.setInputValue('ASD', 'btnradio2')">Radio 2</label> </div> </div> </div> }") ) server <- function(input, output, session) { observe({ val <- input$ASD print(paste("ASD: ", val)) }) } shinyApp(ui, server) 这可行，但感觉有点 hackish，而且我无法预先选择一个值（例如，从选择的 Radio 2 开始）。是否有更好的方法从这些单选组按钮中检索选中的值？如果您想重新创建一些输入，如所述，更好的方法可能是创建一个自定义输入绑定（另请参阅此处）。在下面的示例中，我编写了 getValue 方法，以便它将返回 value 属性（与 here 的描述类似）。关于您无法预先选择值的观点，请注意您可以使用 checked 属性。下面，我将其添加到第二个按钮。 library(shiny) library(bslib) ui <- page_fluid( tags$script( type = "text/javascript", HTML( "const myCustomBinding = new Shiny.InputBinding();", "$.extend(myCustomBinding, { find: function(scope) { return $(scope).find('.form-group_shiny-input-checkboxgroup_shiny-input-container'); }, getValue: function(el) { var value = $(el).find('.btn-check:checked').attr('value'); return value; }, subscribe: function(el, callback) { $(el).on('click button', function(e) { callback(); }); }, receiveInputMessage: function(el, message) { }, unsubscribe: function(el) { $(el).off('myCustomBinding'); } });", "Shiny.inputBindings.register(myCustomBinding);" ) ), shiny::HTML( r"{ <div class="form-group_shiny-input-checkboxgroup_shiny-input-container" role="group" id="rg"> <div class="shiny-options-group"> <div class="btn-group" role="radiogroup" aria-label="Basic radio toggle button group"> <input type="radio" class="btn-check" name="btnradio" id="btnradio1" autocomplete="off" value = "val1"> <label class="btn btn-outline-primary" name="ASD" for="btnradio1">Radio 1</label> <input type="radio" class="btn-check" name="btnradio" id="btnradio2" autocomplete="off" value = "val2" checked> <label class="btn btn-outline-primary" name="ASD" for="btnradio2">Radio 2</label> </div> </div> </div> }" ), verbatimTextOutput("valOut") ) server <- function(input, output, session) { output$valOut <- renderPrint({ val <- input$rg paste("ASD: ", val) }) } shinyApp(ui, server)

r shiny

回答 1 投票 0

模块内 DT 数据表行中的操作按钮

受这篇文章的启发，我编写了一个闪亮的应用程序，其中包含一个用于 DT 数据表的模块，每行有两个操作按钮。如果没有该模块，代码就可以工作，如原始帖子所示。不幸的是，

javascript r shiny dt shinymodules

回答 1 投票 0

如果 Shiny R 中的反应表（datamods）没有任何更改，则使用原始输入值

我正在尝试构建一个闪亮的应用程序来呈现一些模型模拟。用户应该能够将所有输入变量更新为他自己的值。该应用程序有几个选项卡：首先是模拟

r shiny

回答 1 投票 0

RSTUDIO 中的 R Markdown 中的 R Shiny - 损坏的图像

我目前正在 RSTUDIO 中使用 R Shiny 开发一个 Web 应用程序。当我尝试包含图像时。我得到了损坏的图像符号。下面是输出的图像、目录（图像位于 www）和...