求助：如何将R Shiny现有逻辑改为层级下拉切片器适配Power BI

一、优化Shiny下拉切片器界面 #

你现有代码里的selectInput已经是下拉选择组件，但可以调整细节让它更贴近Power BI切片器的使用体验，同时修正代码里的拼写错误：

library(shiny)

data <- data.frame(
    ParentCode = c("A", "A", "B", "B", "C", "D", "D", "E", 'F'),
    EntityCode = c("A1", "A2", "B1", "B2", "C1", "D1", "D2", "E1", "E2")
)

ui <- fluidPage(
    # 带搜索功能的下拉选择器，支持多选，样式更贴近切片器
    selectInput(
        inputId = "selected_entity",
        label = "选择实体:",
        choices = unique(data$EntityCode),
        multiple = TRUE,
        selectize = TRUE, # 开启搜索与标签式多选
        width = "300px"
    ),
    verbatimTextOutput("selected_entities")
)

server <- function(input, output) {
    output$selected_entities <- renderPrint({
        req(input$selected_entity) # 确保有选择后再执行逻辑
        filtered_data <- data[data$EntityCode %in% input$selected_entity, ]
        c(
            paste("选中的实体:", paste(input$selected_entity, collapse = ", ")),
            paste("对应的父代码:", paste(unique(filtered_data$ParentCode), collapse = ", "))
        )
    })
}

shinyApp(ui, server)

关键调整说明： #

• 开启selectize = TRUE，让下拉框支持搜索、标签式多选，视觉和交互更接近Power BI切片器
• 修正collaspe为正确的collapse拼写
• 用req()避免未选择时的报错
• 移除冗余的observe，直接通过renderPrint响应输入变化

二、将Shiny下拉选择结果链接到Power BI #

以下是两种常用的联动方案：

方法1：通过API推送筛选条件到Power BI #

使用powerbiR包将选中的实体代码推送到Power BI报表的筛选器：

# 先安装依赖包
install.packages("powerbiR")
library(powerbiR)

server <- function(input, output) {
    output$selected_entities <- renderPrint({
        req(input$selected_entity)
        filtered_data <- data[data$EntityCode %in% input$selected_entity, ]
        
        # 推送筛选条件到Power BI
        pbi_token <- get_pbi_token(tenant_id = "你的租户ID", client_id = "你的客户端ID", client_secret = "你的客户端密钥")
        update_report_filter(
            token = pbi_token,
            group_id = "你的工作区ID",
            report_id = "你的报表ID",
            filter_table = "你的数据表名",
            filter_column = "EntityCode",
            filter_values = input$selected_entity
        )
        
        c(
            paste("选中的实体:", paste(input$selected_entity, collapse = ", ")),
            paste("对应的父代码:", paste(unique(filtered_data$ParentCode), collapse = ", "))
        )
    })
}

方法2：嵌入Shiny应用并通过URL参数双向联动 #

1. 将Shiny应用部署到Shiny Server或Shinyapps.io
2. 在Power BI中添加Web内容，嵌入Shiny应用的URL
3. 修改Shiny代码支持URL参数传递筛选条件：

server <- function(input, output, session) {
    # 初始化时读取URL参数中的筛选值
    observe({
        query <- parseQueryString(session$clientData$url_search)
        if (!is.null(query$entity)) {
            updateSelectInput(session, "selected_entity", selected = unlist(strsplit(query$entity, ",")))
        }
    })
    
    # 选择变化时更新URL参数，供Power BI读取
    observe({
        req(input$selected_entity)
        new_url <- paste0(session$clientData$url_pathname, "?entity=", paste(input$selected_entity, collapse = ","))
        updateQueryString(new_url, mode = "push", session = session)
    })
    
    output$selected_entities <- renderPrint({
        req(input$selected_entity)
        filtered_data <- data[data$EntityCode %in% input$selected_entity, ]
        c(
            paste("选中的实体:", paste(input$selected_entity, collapse = ", ")),
            paste("对应的父代码:", paste(unique(filtered_data$ParentCode), collapse = ", "))
        )
    })
}

之后在Power BI中通过URL参数读取Shiny传递的筛选条件，即可实现双向联动。

内容的提问来源于stack exchange，提问作者Shannon Leong