在闪亮的应用程序中使用NavbarPage to dashboardPage
是指在R语言中使用Shiny包中的函数来创建一个具有导航栏和仪表板页面的应用程序。
NavbarPage是Shiny包中的一个函数，用于创建一个具有导航栏的应用程序页面。导航栏通常位于页面的顶部，可以包含多个选项卡或链接，用于导航到不同的页面或功能。
dashboardPage是Shiny包中的另一个函数，用于创建一个仪表板页面。仪表板页面通常用于展示和控制数据分析、可视化和交互式元素。
使用NavbarPage to dashboardPage的步骤如下：
- 导入必要的库和包：
library(shiny)
library(shinydashboard)- 创建一个Shiny应用程序对象：
ui <- shinyUI(
navbarPage(
"My App",
tabPanel("Dashboard", dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody()
))
)
)- 定义应用程序的UI界面：
server <- shinyServer(function(input, output) {
# 服务器逻辑代码
})- 运行应用程序：
shinyApp(ui, server)在这个例子中，我们创建了一个名为"My App"的导航栏页面，其中包含一个名为"Dashboard"的选项卡。在"Dashboard"选项卡中，我们使用dashboardPage函数创建了一个仪表板页面，其中包含了仪表板的头部、侧边栏和主体部分。
这种应用程序适用于需要展示和控制数据分析、可视化和交互式元素的场景，例如数据仪表板、数据监控和数据分析应用程序。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云云数据库MySQL版（TencentDB for MySQL）：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发（移动推送、移动分析、移动测试等）：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云虚拟专用网络（VPC）：https://cloud.tencent.com/product/vpc
- 腾讯云安全产品（云防火墙、DDoS防护等）：https://cloud.tencent.com/product/safety
- 腾讯云音视频处理（云直播、云点播等）：https://cloud.tencent.com/product/vod
相关·内容
我刚刚开始使用R和闪亮的应用程序，我有点困惑如何实现我想要做的事情。我想改变我的闪亮应用程序的UI。作为一名C#开发人员，我使用HTML/CSS、AdminLTE等等。我找不到合适的文档，如何在闪亮的应用程序中更改UI。
我想在UI中实现的内容如下所示：
首先，我删除了侧边栏。现在，我的问题是限制UI。在标题中，我想添加一个下拉菜单，没有几个选项。然后，我希望在页面中间有一个带有2列的面板:在第一列的第一行中，我希望看到R生成的图形，然后用相同的文本来解释这个图。
最重要的是，我想要改变样式，例如标签或按钮。
经过两天的工作，我编写了这段代码，但这与我想要实现的目标相差甚远。
lib
浏览 4提问于2021-01-05得票数 1
我想知道热更改导航栏页面菜单的默认白色背景，以及它的所有元素的字体类型和颜色在一个闪亮的仪表板。
## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
navbarPage("Title",
navbarMenu("More",
tabPanel("T
浏览 6提问于2019-10-31得票数 0
回答已采纳
我喜欢新的库(Shinydashboard)，但我想知道是否有可能在仪表板标题中将几个选项卡排列在一起-就像普通闪光库的导航栏布局一样？
似乎不可能在"dashboardPage“中使用navbarlaout，因为"navbarPage”是类似于"dashboardPage“的布局命令。
尽管如此，navbarpage和dashboardPage的结合还是很有趣的。
从我找到的shinydashboard示例(下面和其他)中，看起来不同的仪表板选项卡只能放在侧边栏中。
有没有人找到了在"dashboardPage“标题中为多个仪表板添加标签的方法？
浏览 7提问于2015-02-08得票数 15
我正在开发一个闪亮的应用程序，如果条件为真，我想添加一个选项卡面板。我使用的是条件面板函数，测试的条件是来自ui输入的"products“是否包含"C”。 在第一个选项卡上，如果单击C，则不会显示“第二个选项卡”。 我认为问题出在conditionalpanel中的JS条件。 如果您有任何有效的解决方案(不一定基于conditionalpanel)，我将感谢您的帮助和支持。Luigi 下面是我的reprex library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(reprex)
tab_inp
浏览 13提问于2020-12-29得票数 0
回答已采纳
为了获得更多的控制，我在server.R中设置了UI，但是当在server.R中定义时，shinyDashboard不起作用。
这段代码起作用
library(shiny)
library(shinydashboard)
ui <- dashboardPage( dashboardHeader( ),
dashboardSidebar(),
dashboardBody() )
server <- shinyServer(function(input,
浏览 3提问于2016-08-08得票数 8
回答已采纳
1回答
在我正在开发的系统中，我有三个不同的角色(用户、管理人员、支持团队)使用闪亮的应用程序。我想知道如何对这三个参与者进行身份验证，每个参与者都只能访问他们的页面。我发现，它可以与闪亮的服务器Pro，这是不免费的。有什么办法可以代替使用闪亮的服务器专业吗？在UI.R中，代码如下：
library(shiny)
library(shinydashboard)
rm(list = ls())
Logged = FALSE;
my_username <- "test"
my_password <- "test"
ui1 <- dashboard
浏览 1提问于2015-11-19得票数 7
回答已采纳
我想使用css.file在闪亮的NavbarPage风格的应用程序。我写
shinyUI(
navbarPage("Title",
theme = "bootstrap.css",
tabPanel("tabPanel1"),
tabPanel("tabPanel2"),
tabPanel("tabPanel3")
...
但是它看起来并不好看(tabPanel名称是垂直的，而不是水平的)，.It一直在我选择
浏览 0提问于2015-02-13得票数 2
回答已采纳
我有一个闪亮的应用程序(使用navbarPage)与许多选项卡，并希望添加一个sidebarMenu，可以看到，无论哪个选项卡被选中。侧栏中的输入值对所有选项卡的内容都有影响。此外，应该可以隐藏sidebarMenu，因为它是在闪烁仪表板中。
我认为有两种可能的方法：
(A)使用shinydashboard并以某种方式添加顶部导航栏或
(B)使用navbarPage并以某种方式添加可以隐藏的侧栏菜单。
(A)使用shinydashboard，最接近我想要的是(简化的MWE)：
library("shiny")
library("shinydashboard")
浏览 2提问于2017-09-10得票数 14
回答已采纳
1回答
我在ui.R中以以下格式在闪亮的应用程序中将页脚拆分为3列：
navbarpage(title="",
footer=p(hr(),
column(4, p()),
column(4, p()),
column(4, p())
)
)
页脚在页面之间不断上下移动。可以修复整个应用程序的页脚位置吗？
浏览 1提问于2021-03-10得票数 1
回答已采纳
我正在研究如何在加载R闪亮反应系统后更改元素'navbarPage‘和'tabPanel’组件。这是一个代码 library(shiny)
# How to change these elements after loading R Shiny reactive system
str_title <- "Title"
str_window_title <- "Window title"
str_cars <- "Cars"
str_iris <- "Iris"
# UI
ui <
浏览 20提问于2020-12-20得票数 1
回答已采纳
5回答
组织更大的闪亮应用程序的最佳实践是什么？
我认为最佳的R实践也适用于闪亮。
这里讨论了最佳R实践：
链接到谷歌的R风格指南：
但是，在闪亮的上下文中，我可以采用哪些独特的技巧和技巧来使我的闪亮代码看起来更好(更易读)？我在想这样的事情：
在Shiny中开发面向对象的编程
在server.R中，应该采购哪些部件？
包含标记文档、图片、xml和源文件的项目的文件层次结构
例如，如果我在每个navbarPage中使用tabsetPanel和tabsetPanel，那么在添加了几个UI元素之后，我的代码开始看起来非常混乱。
示例代码：
server <- function(i
浏览 5提问于2014-11-22得票数 72
回答已采纳
我有一个闪亮的应用程序，在一个navbarPage中有几个tabPanels。
ui<-shinyUI(
navbarPage(
theme = "cyborgBootstrap.css",
"Shiny panel append",
tabPanel(
"First Panel",
strong("panel 1")
),
tabPanel(
"Second Panel",
strong("panel 1"
浏览 1提问于2017-05-16得票数 1
我正在努力在R闪亮应用程序的navbarPage中显示徽标(logo.png)。我遵循了我在互联网上找到的建议/指示(例如here，here，here或here，甚至here)，原则上，它似乎是有效的。至少标题会出现，填充也会得到尊重。但是，只显示一个占位符，而不是实际的png，如果您查看图像，它会显示“找不到”： ? app的结构如下： global.R
ui.R
server.R
www/img/logo.png 代码(位于ui.R中)： shinyUI(
navbarPage(
title = div(img(src = "logo.png",
浏览 26提问于2021-10-14得票数 0
回答已采纳
在这个中，很好地解释了如何在输入一些密码后启动shinyapp。我也在尝试做同样的事情，但是我想要一个"dashboardPage“，而不是"navbarPage”。
我试图将do.call函数中的参数从'navbarPage‘改为'dashboardPage'，但应用程序崩溃了。
rm(list = ls())
library(shiny)
Logged = FALSE;
my_username <- "test"
my_password <- "test"
ui1 <- function(){
浏览 3提问于2017-04-14得票数 8
回答已采纳
我正在使用navbarPage和sidebarPanel布局开发一个闪亮的应用程序。然而，一个额外的空行一直被追加在导航栏下面(参见下面的图像)。在HTML文件中，我可以清楚地看到罪魁祸首：
<div class="row"> </div>
但是，我似乎不知道我的R代码的哪一部分会导致创建额外的行。作为参考，下面是说明此问题的最低ui.R代码：
shinyUI(fluidPage(
navbarPage('Minimum Example',
tabPanel('Tab1',
sid
浏览 5提问于2015-02-03得票数 0
回答已采纳
The bounty15小时后过期。回答此问题有资格获得+100声誉奖励。 马克1想要吸引更多关注关于这个问题。 我想用shiny::navbarPage(collapsible = TRUE)在小屏幕上查看我闪亮的应用程序时，将导航元素折叠到菜单中。默认情况下，当浏览器的宽度小于940像素时会触发折叠。有没有办法改变这一点，使折叠触发器的浏览器宽度稍大一些，例如，1200像素？ 我看过这个引导3导航条折叠还有这个在不使用LESS的情况下更改引导导航栏折叠断点但不知道如何让它与闪亮一起工作。 玩具闪亮应用： library(shiny)
ui <- navbarPage("T
浏览 25提问于2021-02-21得票数 4
回答已采纳
我希望这个闪亮的应用程序记住在session$reload() (刷新页面)时选择了哪个选项卡来清除所有输入，，除了，当前选项卡在navbarPage()中选择的值。
我想到的唯一想法，尽管我不知道如何实现，应该是将一个全局变量tabIndicator指定为当前选项卡的值(如何获得这个值？)，然后在刷新时，在全局环境中rm()所有变量( tabIndicator除外)，并在navbarPage()中设置selected = tabIndicator。
我怎样才能做到这一点？
浏览 7提问于2017-04-28得票数 2
回答已采纳
1回答
我想包括页脚到我的navbarPage闪亮的布局。在主要函数：中存在脚注参数
但是，我想为脚注：使用引导类。
因此，我想知道，如何将这个HTML代码包含到我闪亮的应用程序中：
<footer class="page-footer font-small blue">
<!-- Copyright -->
<div class="footer-copyright text-center py-3">© 2018 Copyright:
<a href="https://mdbootstrap.com/
浏览 0提问于2019-12-02得票数 1
回答已采纳
3回答
经过一些navbarPage之后，我正在尝试将一个全局搜索字段放到我的tabPanel中。我不确定这是否可能，因为我所有的测试都在textInput之外生成navbar。
rStudio闪亮的布局指南指向了，他们实际上就是在那里这样做的。但我无法用我的闪亮的应用程序复制它。
library(shiny)
ui <- shinyUI(
shiny::navbarPage('test',
shiny::tabPanel('my app',
fluidPage(
# Application title
titlePanel("
浏览 4提问于2016-11-15得票数 2
回答已采纳
1回答
徽标而不是应用程序标题发亮
、、、、
如何在闪亮的应用程序中取代标题：
navbarPage("title",theme = shinytheme("flatly"),
tabPanel("Home",
菜单标签的大小有标志吗？我尝试过这样的解决方案：，但在某种程度上是行不通的。图像太大覆盖所有菜单项
Thx
浏览 1提问于2015-10-19得票数 5
回答已采纳
1回答
朋友们可以帮我在我闪亮的navbarPage上插入一个图形。我想删除我的navbarPage中的书面文字“模拟”，并插入所附的图形。这是不是可以在闪亮中做到呢？任何帮助都是非常感谢的。可执行代码如下所示。
library(shiny)
library(shinytables)
ui <- bootstrapPage(
navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
"Simulation",
sidebarLayout(
sidebar
浏览 7提问于2020-05-14得票数 0
回答已采纳
1回答
我以前是一个R用户，但对闪亮的开发来说是个新手。我想创建一个闪亮的应用程序与顶部导航栏，但我似乎不能理解我如何可以把不同的页面顶部栏链接。
我有一个带有三个不同菜单的当前工作栏，我现在如何为每个菜单创建不同的页面，以便当我单击该栏时，它会打开不同的页面？如果我有几个页面，闪亮的应用程序会很慢吗？
例如，使用示例代码
navbarPage("App Title",
tabPanel("Plot"),
tabPanel("Summary"),
tabPanel("Table")
)
浏览 4提问于2017-02-06得票数 2
回答已采纳
3回答
我试图添加一个背景图像到一个闪亮的应用程序。我要把它固定在左上角。到目前为止，背景图像还没有加载。颜色正在加载，字体看起来很好。只是没有图像。
这是我的CSS：
body {
background-image: url("header.png");
background-position: left top;
background : #000000;
}
这就是我把它包括在我的闪亮的地方：
ui = navbarPage(
includeCSS("includes/style.css"),
提前谢谢你的帮助。
浏览 0提问于2016-03-08得票数 5
回答已采纳
1回答
R-改变肚脐发亮的颜色
、、、
我试图改变页面顶部导航条的颜色。我搜索了许多资源，但只找到了如何在mainPanel上更改颜色。我对CSS完全陌生，所以我不知道如何将代码插入到我的应用程序中。有人能给我举几个例子吗？
这是我闪亮的应用程序: navbarPage
我想把它变成黑色
因为我的代码太长了不能放在这里。这个结构看起来像
shinyUI(navbarPage("title1",
tabPanel("title2",
sidebarLayout(
sidebarPanel(
浏览 0提问于2016-03-13得票数 2
回答已采纳
我正在开发一个闪亮的应用程序，并使用shinydashboard包作为UI部分。我想在悬停时打开侧边栏，而不是点击按钮。我尝试过数据触发器选项，但它不起作用。有人能帮我做这件事吗？ 一个闪亮的仪表板应用程序的最小示例 ## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) { }
shinyApp
浏览 17提问于2019-12-19得票数 0
回答已采纳
我有一个工作的R闪亮的应用程序，但为了满足可访问性要求(例如，这样盲人的网页阅读器可以与登陆页面操作)，语言属性(lang ="en")应该设置在主要的html标签中，即：<!doctype html> <html lang="en"> <head>. 我的ui.R代码从dashboardPage()函数开始，但是如果我将HTML("<html lang='en'>")放入它的任何参数中-生成的应用程序的源代码将在主体中显示这一行(由dashboardBody()创建)，而我需要它
浏览 16提问于2019-05-29得票数 4
回答已采纳
我在.
...to将其推广到尚未真正获得css的用户。我花了很多时间阅读的rstudio指南，但仍然没有点击。我了解一些事情，但我认为这意味着我有90%在那里。
css文件必须以ui.r和fluidPage或navbarPage函数中的主题参数链接。
添加一个非常稀疏的css文件来添加背景颜色会破坏现有的css。
因此，我的问题是，在的闪亮图库中，如何最简单地实现css来更改示例直方图应用程序的背景色。
我认为这个问题的答案将有助于一些闪亮的应用程序开发人员，他们是css的新手，就像我自己。
浏览 0提问于2015-03-31得票数 6
回答已采纳
我想使用shiny.router创建一个使用navbarPage和tabPanel的闪亮应用程序标签的可共享链接。
下面是不起作用的可重复的例子：
library(shiny)
library(shiny.router)
page_1 <- tabPanel("Page 1", value = "page_1",
"This is Page 1")
page_2 <- tabPanel("Page 2", value = "page_2",
浏览 8提问于2022-03-19得票数 3
回答已采纳
2回答
我在shiny中使用auth0包进行身份验证。该包包含auth0::logoutButton()。我想把这些按钮放在闪亮应用程序的NavbarPage右侧。下面是一个简单的应用程序： library(shiny)
library(markdown)
ui <- navbarPage("Navbar!",
tabPanel("Plot",
sidebarLayout(
sidebarPanel(
浏览 45提问于2019-10-08得票数 0
1回答
我正在使用软件包的开发版本开发一个闪亮的应用程序，如文档所示。
当我将navbarPage与tabsetPanel结合使用时，一切都如预期的那样工作：
library(shiny)
shinyUI(
navbarPage("Page Title",
tabPanel("Panel 1")
tabPanel("Panel 2"),
tabPanel("Panel 3"))
)
但是，当我将一个navbarMenu添加到其中一个选项卡时：
library(shiny)
sh
浏览 2提问于2014-03-15得票数 11
1回答
有没有办法修复闪亮应用程序中的侧边栏？下面是截图。现在，它是可折叠的。但是我们能解决这个问题吗?这样它就不会移动
下面是这个的示例代码
ui <- dashboardPage(
dashboardHeader(title = "Title1"),
dashboardSidebar(sidebarMenu(.......
浏览 1提问于2020-09-08得票数 0
什么是改变一个闪亮的应用程序标题的好方法？在下面的示例应用程序中，我有一个radioButtons输入，我希望应用标题(“项目标题”)在无线电选择的情况下改变。
library(shiny)
ui <- navbarPage("Project Title",
tabPanel(title = "Tab 1",
radioButtons("title_change", label = "Change title of App", choices = c("Titl
浏览 1提问于2020-07-02得票数 2
回答已采纳
我正在使用navbarPage()布局构建一个闪亮的应用程序。我想在屏幕的右边，在导航栏中插入一张图片。它看起来就像堆叠溢出站点顶部的导航栏，但在最右边有一个徽标。我试过：
shinyUI(
navbarPage (title="test Page" ,
img(src="mylogo.gif", style="float:right; padding-right:25px"),
tabPanel(title="Panel 1",...)
))
然而，所做的就是在导航栏的右下角显示图像，而不是第一个
浏览 7提问于2014-07-11得票数 34
回答已采纳
我有一个闪亮的应用程序，里面有一个mainPanel和一个sidebarPanel，里面有一个navbarPage的tabPanel。我需要一个类似于此的选项来隐藏sidebarPanel：和。
actionButton应该控制sidebarPanel是显示还是折叠。
代码如下：
library(shiny)
library(shinyjs)
ui <- fluidPage(
navbarPage("",
tabPanel("tab",
sidebarPanel(
浏览 18提问于2017-02-10得票数 10
回答已采纳
1回答
我正在开发一个闪亮的应用程序来显示一个非均匀的泊松过程。我有3种不同的lambda函数可供选择，并希望随着时间的推移显示一个lambda图。我的解决方案是使用以这3个函数为值的selectInput。
ui.R
shinyUI(
navbarPage(
title = "Non-Homogenious Poisson Process",
tabPanel("Home",
fluidPage(
sidebarLayout(
sidebarPanel(
浏览 2提问于2017-11-13得票数 0
回答已采纳
1回答
我想用把一个图片放在我闪亮的应用程序的头上，就像下面所示，但是我不知道如何处理这个问题。
这是基本的
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output, session) {}
shinyApp(ui, server)
浏览 6提问于2022-07-27得票数 1
回答已采纳
我正在寻找帮助，请观察当一个闪亮的应用程序的肚脐按钮navbarPage被点击。 我在闪闪发光的导航栏中包含了一个按钮，其中包含了一些javascript。我为按钮标签(‘id=bTN_Show’)提供了一个id，并引入了一个观察者事件来侦听‘输入$bTN_Show’。通过…没有观察到这个按钮请问需要什么？谢谢 library(shiny)
library(shinyjs)
ui <- navbarPage(
title = 'Button Up',
tabPanel('Tab 1'),
tabPanel('Tab 1')
浏览 14提问于2021-09-11得票数 1
回答已采纳
2回答
当鼠标悬停在R闪亮应用程序的navbarPage菜单上的选项上时，我试图更改字体的颜色，方法是使用一个包含内容的CSS文件：
.navbar-default:hover {
color: #F2E836;
background-color: #000000 !important;
}
不过，这对我不起作用。有什么猜测吗？
浏览 1提问于2018-05-12得票数 0
回答已采纳
1回答
虽然可以在一个闪亮的仪表板应用程序中添加一个标题，这个应用程序在应用程序页面中正确地出现了，
## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "my title"),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) { }
shinyApp(ui, server)
它不显示为浏览器的标签名。由于浏览器中的选项卡名
浏览 3提问于2016-12-04得票数 11
回答已采纳
1回答
我有下面这个闪亮的应用程序。
library(shiny)
ui <- shinyApp(
shinyUI(
navbarPage("X-men",
tabPanel("Plot"),
tabPanel("Summary" )
)),
server <- shinyServer(function(input, output) {})
)
# Run the application
shinyApp(ui =
浏览 6提问于2017-04-06得票数 1
1回答
我已经创建了一个闪亮的应用程序，其中包括一个广泛的传单地图。当向下滚动应用程序时，传单抓住鼠标并开始在地图上缩放。这很烦人，只有在点击地图后才能缩放传单。
可以在中找到该问题的说明以及使用JavaScript的解决方案。JavaScript为。
我的问题是:如何将此解决方案集成到我闪亮的应用程序中？我尝试下载JavaScript，将其放入我的闪亮文件夹中，并运行以下代码，但没有成功：
library(shiny)
library(shinydashboard)
library(leaflet)
ui <- dashboardPage(
dashboardHeader(distab
浏览 8提问于2017-06-28得票数 2
我想在我闪亮的应用程序上有两个甚至更多的"navbarPage“。第一个需要着色，第二个需要有它的默认样式。我试图在navbarPage中传递一个类条件，但是它不接受它。如果我在其中添加一个.css，那么所有的navbarPage都会得到这种样式。这里我有一个最小的可重复的例子
library(shiny)
ui <- fluidPage(
div(class = "navbar1",
navbarPage(title="Navbar One",theme="custom-navbar.css",
浏览 1提问于2018-03-13得票数 2
回答已采纳
我试图在一个shinydashboard应用程序中创建和使用闪亮的模块，但我一直收到这个错误：
Error in FUN(X[[i]], ...) : Expected an object with class 'shiny.tag'.
这是一个尽可能精简的应用程序：
ui.r
library(shiny)
library(shinydashboard)
source("modules.r")
ui <- dashboardPage(
dashboardHeader(
title = "Shiny modules and shinydas
浏览 1提问于2016-06-02得票数 3
1回答
我无法在我闪闪发亮的应用程序中绘制传单地图，尽管代码本身在闪亮的外部工作。我没有任何错误，所以我被困住了，任何帮助都是感激的。
样本数据：
cleanbuffalo <- data.frame(name = c("queen","toni","pepper"),
longitude = c(31.8,32,33),
latitude = c(-24,-25,-26))
闪亮的UI：
vars <- c(
"Pep
浏览 14提问于2016-08-22得票数 6
回答已采纳
在使用shinythems库时，我试图在我闪亮的应用程序中有一个盒子：
library(shiny)
library(DT)
library(shinythemes)
library(shinydashboard)
ui <- fluidPage(
theme = shinytheme("lumen"),
navbarPage("test theme",
tabPanel("tab1",
mainPanel(width = 12,
fluidRow(
浏览 10提问于2022-11-12得票数 0
回答已采纳
我正在尝试在闪亮的仪表板中创建一个单词云。单选按钮控件和所有其他东西都工作得很好，除了wordcloud的输出显示在R Studio的查看窗格中，而不是闪亮的应用程序中。
对闪亮的编程非常陌生，并且尝试过在服务器中同时使用renderPlot和reactivePlot。
有人知道为什么吗？
以下是我的代码的快照
shinyUI(dashboardPage(
# DASHBOARD HEADER
dashboardHeader(title = "ABC Classification"),
浏览 2提问于2017-06-10得票数 0
回答已采纳
我有一个闪亮的应用程序，有一个navbarPage和两个tabPanel。在第一个选项卡中，我有一个actionLink，它初始化了一个modalDialog，其中包括一个以单元格作为按钮的reactable。当我单击表中的一个按钮时，我想要更改我的navbarPage的输入，即将tabPanel从"tabone“更改为"tabtwo”。同时，我希望在tabPanel更改时关闭modalDialog。那我该怎么告诉我的modalDialog关闭呢？ library(Shiny)
library(reactable)
ui = fluidPage(
navbarPa
浏览 20提问于2021-08-31得票数 3
回答已采纳
我有包含多个dashboardPages的shainyApp，在每个dashboardPages中我都有sidebarMenu。 我正在尝试获取单击的选项卡的名称。 这是一个示例代码： ui<-navbarPage("",
tabPanel("tab1",
dashboardPage(
dashboardHeader(),
dashboardSidebar(
浏览 15提问于2020-07-29得票数 1
1回答
我有几个闪亮的应用程序，我想把它们都合并到一个应用程序中。但是，我不想使用source()函数，而是想为每个闪亮的应用程序复制粘贴代码。现在，如果其他人运行这个应用程序，它会得到一个错误。你知道怎么做吗？ library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem("first_app", tabName = "first_app"),
浏览 16提问于2020-08-16得票数 0
我创建了一个在valueBox中显示值的闪亮应用程序。这些值应该用相应的货币(美元或欧元或is )显示，但是，只显示$-符号。
MWE看起来是这样的：
library(shinydashboard)
library(shiny)
ui <- dashboardPage(
dashboardHeader(title = "MWE"),
dashboardSidebar(),
dashboardBody(
fluidRow(
valueBox(value = paste0(sprintf("%.2f", 123.14), &#
浏览 3提问于2015-10-15得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
