1

如何在 RSHINY 中将 NULL 作为变量值传递？

在 phyloseq 中有一个称为 plot_net 的图。最基本的 plot_net 绘图代码如下所示：

data(enterotype)
#Eliminate samples with no entereotype denomination
enterotype = subset_samples(enterotype, !is.na(Enterotype))

plot_net(enterotype, maxdist = 0.1, point_label = NULL)

在此处输入图像描述

我正在尝试创建一个允许用户更改此图形的 RShiny 应用程序。

point_label 有几个不同的选项（例如：“SecTech”、“SampleID”、NULL）。

我已经有了这个标签的所有其他值，我只是不确定如何添加 NULL。

这是我所做的：

这可能无法运行，因为它不在闪亮的应用程序中，但我将其作为示例来说明问题。

library(shiny)
library(phyloseq)

# Data: This data contains info about nodes and edges on Phyloseq data.
data(enterotype)
#Eliminate samples with no entereotype denomination. Make it a lesson to 
always catalogue data correctly from the start. 
enterotype = subset_samples(enterotype, !is.na(Enterotype))
       
# a is the collection of variable names for point_label
    
a <- sample_variables(enterotype)
    
theme_set(theme_bw())

# Define UI for application that draws a network plot
shinyUI(fluidPage(
  
  # Application title
  titlePanel("Network Plots"),
  
   
  sidebarLayout(
    sidebarPanel(
      
       
      selectInput("labelBy",
                  "Select the point label category",
                  ***choices = c(a, "NA" = NULL),***
                  selected = "NA")
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
       plotOutput("netPlot")#,
       #plotOutput("networkPlot")
    )
  )
))

shinyServer(function(input, output) {
   
  output$netPlot <- renderPlot({
    
    plot_net(enterotype, maxdist = .1, point_label = input$labelBy)
    
  })
})
shinyApp(ui = ui, server = server)

这条线是我的问题：

选择 = c(a, "NA" = NULL)

如何将 NULL 添加到我的选择列表中。无论我如何尝试，NULL 始终被视为零值，它不会作为选项出现。

如果我将 NULL 写为“NULL”，则 phyloseq 函数 plot_net 不会接受它。它只接受值 point_label = NULL 表示没有值。

我认为可以创建一个 if...else 循环，如果用户在 checkboxInput 上单击 NULL，则该图将由第二行代码生成，指定 point_label 中的值为 NULL，但这可能是真的如果有多个变量具有可能的 NULL 值，则很麻烦。

可能有一些明显的技巧，比如在 NULL 值前面放置一个 $ 或 % 但我找不到它。如果有人可以提供帮助，那就太好了！

4

1 回答 1

1

我认为没有办法使用NULLin selectInput。这是您几乎解决的替代方案 - 使用"None"（或任何其他替换值）并在绘图时selectInput切换它。NULL这样您就不必编写多个if...else.

# update on UI side
selectInput("labelBy",
            "Select the point label category",
            choices = c("None", a),
            selected = "None")

# update on server side
output$netPlot <- renderPlot({
  point_labels <- switch(input$labelBy, "None" = NULL, input$labelBy)
  plot_net(enterotype, maxdist = .1, point_label = point_labels)
})
于 2018-11-12T23:20:31.663 回答