相关疑难解决方法(0)

这不是关于使用 renderUI 创建模块。使用我理解的 renderUI，您可以在 UI 函数中放置一个占位符，然后在服务器函数中编写控件/小部件。

模块分为两部分。您必须使用 callModule() 将一部分添加到 UI 函数，另一部分添加到服务器函数。

我有一个滑块模块。我想在单击“添加”操作按钮时将其添加到井面板。如果它有帮助，您可以考虑在单击按钮时多次复制模块。重复的模块应该都是独立的。

视觉上

我想知道一个动作按钮如何在 UI 功能内添加模块的 UI 部分，在服务器功能内添加服务器部分。

#Dynamically adding modules
library(shiny)

#slider module ------------------------
sliderUI <- function(id) {
  ns <- NS(id)
  sliderInput(ns("bins"), "Number of Bins:", min = 1, max = 5, value = 3)
}

slider <- function(input, output, session) {}


#shiny app ------------------------
ui <- fixedPage(
  fixedRow(
    column(width = 4, wellPanel(
      h4("Slider Module"),
      sliderUI("slider"),
      actionButton("addSliderModule", "Add Slider Module"))
    ),
    column(width = 4, wellPanel(
      h4("Dynamic Loading Modules"),
      p("Clicking on …

我是新手,并且正在尝试编写一个用户可以动态添加数据过滤器的应用程序(请参阅下面的代码).我认为insertUI和删除UI非常酷.但是,我有几个问题:

    1) I cannot address dynamically generates input$ids (see filterId in the code, l. 36 and l. 58)
    2) in updateCheckboxGroupInput (l. 62) checkboxes are not preselected.
    3) I cannot select data rows using which() (l. 74)
    4) The checkboxes are not displayed inside the column, but spread over the whole page.

我非常感谢任何提示.

谢谢,Jordi

这里的代码:

library(shiny)

rowvalues <- function(col,data) {
  as.list(unique(data[col]))
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      fluidRow(
        column(6, actionButton('addFilter', 'Add filter')),
        column(6, actionButton('removeFilter', 'Remove filter')),
        offset = 6
      ), …