shinydashboard

0热度

1回答

`if (interactive()) { ui <- fluidPage( numericInput("obs", "Observations:", 10, min = 1, max = 100), numericInput("obs1", "Observations1:", 10, min = 1, max = 100), textInput("final", "Sum") ) s

0热度

1回答

可点击超链接Shiny R

我试过这段代码，在Shiny Dashboard中创建一个可点击的超链接，但由于某种原因图片没有显示（我收到一个问号类的图标，但它是超链接的） `dashboardBody( tabItems( tabItem("icratio", fluidRow( a(img(src="image.png"), href="https://google.com") )

0热度

1回答

闪亮的应用程序（使用shinydashboard）：登录后页面变得奇怪

我创建了一个闪亮的应用程序，但我希望用户登录以访问应用程序。然后我找到一个方法来创建登录页面： Starting Shiny app after password input。但我有一个问题，我的APP使用软件包“shinydashboard”，登录后页面变得很奇怪。我不熟悉HTML的东西。有谁知道如何解决这个问题？代码如下： library(shiny) library(shinydashb

2热度

1回答

R shinydashboard自定义CSS值框

我一直在尝试将valueBox的颜色更改为自定义颜色（超出了validColors中的可用颜色），但一直无法这样做。我知道有一种使用标签来包含自定义CSS的方式，但我无法将它们放在正确的位置。 ui<- dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody(

2热度

1回答

采购动态用户界面在闪亮的

中给出'真'我用this example为闪亮的应用程序获取动态用户界面。我现在试图找到侧栏面板。但是当我这样做时，我会在侧边栏中看到一个丑陋的“真实”。任何人都知道如何在没有将sourceme.r文本放入应用程序的情况下摆脱TRUE。也许source是不是应该使用的功能？ require(shiny) require(shinydashboard) mainbody <- div(ta

0热度

1回答

添加分位线使用geom_vline闪亮有错误

我使用虹膜数据，并希望在密度图中使用geom_vline为闪亮的Flex仪表板中的每个物种添加95％的数据线。但有错误信息。有没有人可以告诉代码中哪里不正确？由于下面的代码是： photo for error message --- title: "Untitled" output: flexdashboard::flex_dashboard: orientation: columns

0热度

3回答

具有自己功能的闪亮应用程序

我想在Shiny应用程序中实现功能。我自己的功能get_calculate()具有参数数据和容差作为输入并且使用data.frame和plot重新生成list。我想根据公差显示输出。在我的服务器功能中，我使用reactive()来运行get_calculate()，但它不起作用。如果我写在renderPlot()和renderDataTable()get_calculate()的作品。但是，

1热度

1回答

发送电子邮件问题::从Shinyapps.io

[![i=iris library(shiny) library(mailR) ui =fluidPage( fluidRow( div(id = "login", wellPanel(title = "Mail your report", textInput("to", label = "To:", placeholder = "To:")

0热度

1回答

手动闪亮扩展子菜单项

我想手动扩展闪亮仪表板中的侧栏中的子菜单。 updateTabItems函数允许我转到选项卡，但不会用它扩展菜单。我在这里寻找一个可重现的问题的答案：how to manually expand a submenu in a shiny dashboard side bar 其中包括一个不错的工作示例和答案，但是没有实现。

1热度

1回答

闪亮的仪表板标题修改下拉框

当在包含消息或通知项的标题中包含下拉菜单时，它会在单击后自动显示句子“您有1条消息”。我如何才能显示消息，但不显示“您有1条消息”的句子？例如下面重现： ui <- dashboardPage( dashboardHeader(dropdownMenu(type = "messages", messageItem( from = "Sales