shinydashboard

0热度

1回答

我想创建我的第一个闪亮的应用程序，我试图让应用程序绘制两个简单的直方图，但与输入按钮让用户选择，如果他想看到两个并排的直方图（水平）或一个在另一个下面（垂直）。我试图在下面写更多的代码，试图向你解释我的思维过程，而不是实际上希望它能奏效。任何帮助表示赞赏，谢谢！ library(shiny) ui <- fluidPage( radioButtons('layout', 'Layout:'

0热度

1回答

条件图shinydashboard

我想知道为什么（在下面的代码中）当我点击复选框“graph”时图不显示？以下是代码示例。我也想知道是否有可能使用conditionalPanel而不是renderUI来做同样的事情？ library(shinydashboard) library(shiny) library(plotly) library(ggplot2) # Can set box height from envi

2热度

1回答

如何在闪亮的仪表板中添加项目名称以外的徽标？

请您可以帮我添加公司徽标，除了项目名称之外，在闪亮的仪表板左上方。我试图在其他答案中使用代码在这里stackoverflow但仍不能解决我的问题。我对HTML和CSS完全无知。这里是我的代码： library(shiny) library(shinydashboard) shinyApp( ui = dashboardPage(skin = "green", dashboardHeade

0热度

1回答

dateRangeInput ui的一部分隐藏在闪亮的仪表板标题下

有没有办法让dateRangeInput的UI完全可见？最小化窗口，点击日期，出现这种情况： library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( menuItem("Home", tabN

0热度

2回答

R Shiny，dashboardSidebar在切换时中断图形和表格宽度

当切换dashboardSidebar菜单时，图形和表格（通过R Shiny制作）不会相应地调整它们的宽度。下面是一个标准图形和表格的例子。初始化应用程序时，图形和表格会正确填充屏幕，但切换菜单会打破这两个元素的宽度。这是如何解决的，因此它们的宽度始终都是100％？ library(shiny) library(shinydashboard) library(dygraphs) ui

1热度

1回答

将图片添加到RShiny动作按钮

如何将图像添加到RShiny动作按钮？就像一个JPEG文件... shinyUI(fluidPage( titlePanel("Image on button"), sidebarLayout( sidebarPanel( ), # Show a plot of the generated distribution mainPanel(

0热度

2回答

绘制相同的输出在两个tabPanels闪亮

我想绘制两个单独的TabBox中闪亮的tabBox内相同的直方图。我可以在其中一个标签中绘制数据，但是当我为其他标签添加代码时，它似乎会破坏应用程序。下面是我想要做的一个例子： library(shiny) library(dplyr) data(mtcars) body <- dashboardBody( fluidRow( tabBox( title

0热度

1回答

sliderInput出现在侧边栏只有当选择了选项卡

我在下面的模板行创建一个Shinyapp： library(shinydashboard) sidebar <- dashboardSidebar( sidebarMenu(id="tabs", menuItem("Tab1", tabName="Tab1", selected=TRUE), menuItem("Tab2", tabName = "Tab

1热度

1回答

如何从点击messageItem

里面有光泽ui.R得到conditionalPanel，用dashboardPage()工作时，我的dashboardHeader()有一个下拉菜单参考列表： dropdownMenu(type = "messages",.list=Mylist) 凡MYLIST充满messageItem()的。而是采用dashboardBody()和tabItems()但是，我使用的是这样的： tags$

0热度

1回答

如何调节表的重新计算，以在RShiny应用的actionButton点击

我有以下几个非常简单的应用程序 funSolver <- function(server,currencyList,tenorList,tailList) { return(do.call(rbind,lapply(currencyList,function(ccy) { return(do.call(rbind,lapply(tenorList,function(tenor) {