闪亮的应用程序 selectInput 和 radioButtons 中的反应式更新 - ggvis

Question

我尝试在我简单闪亮的应用程序中实现一项功能。我的目标是创建依赖于不同小部件的反应式小部件。在我的示例中，我有两个重要的小部件：radioButtons 和 selectInput。根据我在 radioButtons 中选择的内容，小部件 selectInput 的输出将发生变化。

不幸的是我得到一个错误：Error in as.name(input$xvar) :invalid type/length (symbol/0)。感谢您的帮助。

ui.R

library(shiny)

shinyUI(
        fluidPage(
                fluidRow(
                        column(3,
                               selectInput('prod','', prod),
                               radioButtons('level','',level, level[1]),
                               uiOutput('in_xvar')
                        ),
                        column(9,
                               ggvisOutput('ggvis_plot')
                        )
                )
        ))

server.R

library(shiny)
library(ggvis)
library(dplyr)


shinyServer(function(input, output) {

        data0 <- reactive({
                df <- test_data
                df <- df %>% 
                        filter(prod == input$prod)
        })

        data <- reactive({
                df <- data0()
                df <- df %>% 
                        filter(level == input$level)
        })

        output$in_xvar <- renderUI({
                choosen_list <- axis_x[input$level]
                selectInput('xvar','', choosen_list)
        })

        ggvis_plot <- reactive({

                x <- prop('x', as.name(input$xvar))

                plot <- data() %>% 
                        ggvis(x, ~value) %>% 
                        layer_points(fill = ~part)
        })

        ggvis_plot %>% bind_shiny('ggvis_plot')
})

global.R

prod <- c('P1','P2','P3')
level <- c('L1','L2','L3')
part <- c('p1','p2','p3','p4','p5')

axis_x <- list(L1 = list('Ordering' = 'id'),
               L2 = list('Ordering' = 'id', 'Part name' = 'part'),
               L3 = list('Ordering' = 'id', 'Part name' = 'part'))

set.seed(123)
test_data <- data.frame(prod = sample(prod,300, replace = T), 
           level = sample(level, 300, replace = T), 
           part = sample(part, 300, replace = T),
           value = rnorm(300))

test_data <- test_data %>% 
        group_by(prod) %>% 
        mutate(id = 1:n()) %>% 
        arrange(prod, id)

Answer 1

您收到错误消息是因为 input$xvar 最初是 NULL，请尝试在您的 ggvis_plot 中添加一个 if/else:

ggvis_plot <- reactive({
                if(is.null(input$xvar))
                        x <- prop('x', as.name("id"))
                else 
                        x <- prop('x', as.name(input$xvar))
                plot <- data() %>% 
                        ggvis(x, ~value) %>% 
                        layer_points(fill = ~part)
        })

闪亮的应用程序 selectInput 和 radioButtons 中的反应式更新 - ggvis

reactive updates in shiny app selectInput and radioButtons - ggvis

r

shiny

ggvis