小编Rau*_*res的帖子

我有一个这样的数据框:

id y1 y2 y3 y4  
--+--+--+--+--
a |12|13|14|  
b |12|18|  |
c |13|  |  |
d |13|14|15|16  

我想以这样的方式重塑,我以两列结束.以上示例将变为:

id from to  
--+----+--- 
a |12  |13  
a |13  |14  
a |14  |
b |12  |18
b |18  |  
c |13  |
d |13  |14  
d |14  |15  
d |15  |16  

每个id年份都有一个'from'和'to'.
有人知道一个简单的方法吗？我试过用reshape2.我还看了将多列合并到整洁的数据中,但我认为我的情况有所不同.

我想让信息框中的文本小于仪表板其余部分的文本。这是代码的dashboardBody部分：

dashboardBody(fluidRow(        

      box(
         title = "Box 1",
         width = 12, solidHeader = TRUE,
         status = "primary",
         uiOutput("myUiOutput")
      ),
      box(
         title = "Box 2",
         width = 12,
         solidHeader = TRUE,
         status = "warning",
         plotOutput("myPlot")
      ),
      infoBox(title = "my info box title", 
              value = "my info box message",
              subtitle = NULL,
              icon = shiny::icon("copyright"), color = "black", width = 12,
              href = NULL, fill = FALSE) 
 )) #<-end dashboardBody

我尝试在 Box 1 代码之前添加此标签，但它不起作用：

tags$head(tags$style(HTML('
    .info-box .logo {
    font-family: "Georgia", Times, "Times New …