小编kaw*_*leo的帖子

我正在做一些事情，我需要在闪亮的仪表板上有一个浮动按钮。下面是使用shinyMaterial包获取浮动按钮的代码。

library(shiny)
library(shinymaterial)

# Wrap shinymaterial apps in material_page
ui <- material_page(title = "Basic Page",
      tags$h1("Page Content"),

      material_floating_button(
        input_id = "example_floating_button",
        icon = "live_help",
        depth = 5,
        color = "red lighten-3"
      )
    )

    server <- function(input, output) {

    }
    shinyApp(ui = ui, server = server)

当我尝试在闪亮仪表板中使用闪亮材料库中的浮动按钮时，它不起作用。任何帮助都是值得赞赏的，我想要的只是每个页面上都有一个浮动按钮......使用任何库。

library(shiny)
library(shinydashboard)
library(dplyr)
library("shinymaterial")

ui <- dashboardPage(
          dashboardHeader(dropdownMenuOutput("notificationMenu")),
                              dashboardSidebar(sidebarMenu(menuItem("Page 1", tabName = "page1"),
                                                 menuItem("Page 2", tabName = "page2"))),
          dashboardBody(tabItems(
            tabItem(tabName = "page1", h4("This is Page 1"),
                    material_floating_button(
                                input_id = "example_floating_button",
                                icon = "live_help",
                                depth …

我正在寻找一个代码片段，使用它，我可以在 Shinydashboard 标题中启用/禁用侧边栏切换按钮。

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs()
  )
))

server <- shinyServer(function(input, output, session) {
  addClass(selector = "body", class = "sidebar-collapse") # Hide Side Bar
})

shinyApp(ui = ui, server = server)

让我知道是否有人可以提供帮助？？？

我输入的数据包括变量名,等号和数据中的值.我该如何输入这些数据？

我的输入数据如下:

name=Linda english=95 math=94 science=90
name=Susan math=88 english=91 science=90
name=Mary Louise math=90 english=84 science=81

到目前为止我尝试过的:

  data one;
    input name $ subject $;
cards;

我想要的输出数据:

Obs    name           math
1     Linda           94
2     Susan           88
3     Mary Louise     90