闪亮的r：来自上传数据的数字输入

我刚刚开始使用闪亮并得到以下结果basic问题。

1) 上传的纵向数据包括治疗名称一栏（如A、B、C、D），另一栏包括相应的数字代码：如1,2,4,6。根据上传的数据，编码可能会有所不同。每种治疗均针对一组患者进行。

我想使用数字代码来选择要比较的处理方法，类似于 numericInput()。我需要根据提供的实际数据集中的编码更新列表。到目前为止，我使用 numericInput() 进行了此操作，假设编码介于 1 和 10 之间（请参见下面的代码）。

2）如果我想根据治疗名称（此处为 A、B、C、D）进行选择，而感兴趣的数据集之间可能有所不同，该怎么办？

非常感谢帮助。

shinyServer(function(input, output){
## Data reactives:
uploaded_Data <- reactive({
    inFile <- input $ data
    if(is.null(inFile)){return(NULL)}
    read.csv(file = inFile $ datapath,
             header=TRUE)

output $ raw_data <- renderTable({
    uploaded_Data()
})## for table


})

shinyUI(pageWithSidebar(
headerPanel(''),
sidebarPanel(
    fileInput('data', 'File to upload (.csv only):',
              accept=c('.csv')),
    tags $ hr(),
    h4('Select treatments:'),
    numericInput('T1','Treatment1 code:',1, min=1, max=10, step=1),
    numericInput('T2','Treatment2 code:',2, min=2, max=10, step=1)
    ),

## Option for tabsets:
mainPanel(
    tabsetPanel(
        tabPanel('Uploaded Data',
                 tableOutput('raw_data'))
        )
    )
))## overall

我认为您要问的是如何根据上传的数据呈现动态 UI 输入？

如果是这种情况，请尝试将以下策略集成到您的应用程序中：

服务器.R：

#incomplete example
output$groupsToCompare <- renderUI({
  data <- uploaded_data()
  if(is.null(data)){return(NULL)} #This prevents an error if no data is loaded

  #In this example I will use selectInput, but you can also use checkboxInput or whatever really
  selectInput(inputId = 'selectedGroups', label = 'Select which groups to compare', choices = unique(data$treatments), multiple = TRUE)
})

#an example of how to use this input object
output$dataToShow <- renderTable ({
  data <- uploaded_data()
  if(is.null(data)){return(NULL)}

  #subset the data of interest; There are MANY ways to do this, I'm being verbose
  subsetData <- subset(data, input$selectedGroups)

  #alternatively, you could do data[input$selectedGroups]
  return(subsetData)
})

ui.R:

#incomplete example
uiOutput('selectedGroups')

这将动态生成可以选择作为输入的独特因素列表。在您的情况下，它将生成“A”、“B”、“C”、“D”列表或数字因子列表。这些输入可用于对数据进行子集化，或为您梦想的任何内容选择某些变量。我认为这回答了您的两个问题，但如果没有，请告诉我，以便我进行澄清。我还没有测试过selectInput with multiple = TRUE以前，但我想它会工作得很好。一开始这会感觉不寻常，因为您基本上是在 server.R 中设置 UI 元素，您习惯于在 ui.R 中构建 UI，但是一旦您这样做了几次，它就会变得很有趣。