r - シャイニーとプロットを使用してRで作成されたバーの値を表示する

Question

以下の R 光沢のあるスクリプトを実行すると、ダッシュボードに 2 つのボックスが表示されます。左のボックスには棒グラフがあり、右のボックスには DT テーブルがあります。最初のバーをクリックしたときのように、対応する従業員がテーブルに表示され、「r1」がテーブルに表示されます。「user_cases$base1[d[3]]」を実行しようとしましたが、「エラー: 無効な添え字型 'list'」というエラーがスローされます。参照用にスナップショットを添付します。同じことを手伝ってください。

## app.R ##
library(shiny)
library(shinydashboard)
library(ggplot2)
library(plotly)
library(DT)
ui <- dashboardPage(
dashboardHeader(title = "Sankey Chart"),
dashboardSidebar(
width = 0
),
dashboardBody(
box(title = "Sankey Chart", status = "primary",height = "455" ,solidHeader = 
T,
plotlyOutput("sankey_plot")),

box( title = "Case Summary", status = "primary", height = "455",solidHeader 
= T, 
     dataTableOutput("sankey_table"))
)
)
server <- function(input, output) 
{ 

output$sankey_plot <- renderPlotly({
height2 = c(56,45,23,19,8)
base1 = c("r1","r4","r2","r5","r3")
user_cases = data.frame(base1,height2)
pp1 <<- ggplot(user_cases, aes(x = reorder(base1,-height2), y = height2)) + 
  geom_bar(stat = "identity", fill = "#3399ff" ) + scale_y_discrete(name 
="Cases") + scale_x_discrete(name = "Employee")
ggplotly(pp1, tooltip="text",height = 392)
})
output$sankey_table <- renderDataTable({
d <- event_data("plotly_click")
user_cases$base1[d[3]]
})
}
shinyApp(ui, server)

取得するデータセット

bupaR ライブラリの患者データセットからデータのサブセットを取得しようとしています。それを行うためのコードは次のとおりです。

patients_final <- patients[patients$employee == as.data.frame( 
user_time$employee[as.numeric(d[3])])]

しかし、私が得るエラーは次のとおりです。「列のインデックス付けにマトリックスまたは配列を使用できません」ヘルプ用のスナップショットを添付します。