在R Shiny中使用DT數據表將第二行作為列標題

Question

我有一個輸出要使用DT :: datatable在閃亮的應用程序中呈現。

當前看起來像這樣的輸出，我想將第二行用作列標題：

tab1:
          V1      V2      V3      V4      V5      V6      V7      V8    
Month   Apr-17  May-17  Jun-17  Jul-17  Aug-17  Sep-17  Oct-17  Nov-17  
aaa     116.719 120.404 120.26  123.431 117.327 110.742 114.811 117.34  
bbb     76.118  75.976  76.215  76.134  77.19   78.519  78.258  74.522  

因此，當我要將行月份用作列標題時，請執行以下操作：

   app1 <-reactive({ tab1()%>% .[-1,]})

然后我使用數據表進行渲染

 output$op1 <-renderDataTable({
    app1()
  })

我得到以下輸出：

        V1    V2      V3      V4      V5      V6      V7      V8    
aaa     116.719 120.404 120.26  123.431 117.327 110.742 114.811 117.34  
bbb     76.118  75.976  76.215  76.134  77.19   78.519  78.258  74.522  

如何用月份名稱替換v1，v2。謝謝。

Answer 1

數據框上的第一組set_names具有第一行，然后刪除第一行：

df %>% set_names(unlist(.[1,])) %>% tail(-1) # or .[-1,]
#     Apr-17  May-17 Jun-17  Jul-17  Aug-17  Sep-17  Oct-17 Nov-17
#aaa 116.719 120.404 120.26 123.431 117.327 110.742 114.811 117.34
#bbb  76.118  75.976 76.215  76.134   77.19  78.519  78.258 74.522

而在您的情況下： reactive({ tab1() %>% set_names(unlist(.[1,])) %>% tail(-1) })