我试图减少checkboxinput的上边距,因为它与其他输入不同,正如您在第一个菜单项中看到的,即使我定义的上边距等于0px。我找到的解决方案是定义一个负的上边距,但当我定义它时,复选框隐藏了actionLink上边距减少
谁能解决这个问题
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
menuItem("teste",
我是新手。当我制作项目时,我需要在服务器端隐藏dashboardHeader
在shinydashboard网站上,我找到了代码仪表板标题(disable=TRUE)。我试过了,但没用
然而,我尝试使用shinyjs来解决这个问题
<code>
library(shiny)
library(shinydashboard)
library(shinyjs)
ui <- dashboardPage(
dashboard
我已经开发了一个闪亮的应用程序,我正在尝试使用shinyproxy进行第一次轻量级部署。
所有的安装看起来都很好。
我已经安装了docker,java
我认为构建一个包装应用程序和其他功能的软件包是个好主意。
因此,我开发了一个包(CI),并且CI::launch_应用程序基本上是RunApp功能的包装器。代码如下:
launch_application <- function(launch.browser = interactive(), ...) {
runApp(
app
我想确保当我们点击按钮时,我们在逐字输出中发送,然后我们暂停2秒,最后发送。
但是我得到的是一个暂停2s,然后它发送1和2
我该怎么做
library(shiny)
ui <- fluidPage(
verbatimTextOutput("output", placeholder = TRUE),
actionButton("b", "button")
)
server <- function(input, output, session) {
o <- r
我正在尝试创建一个闪亮的应用程序,它基本上是一个带有“关于”选项卡的表格
有两件事我遇到了麻烦:
其中一列是具有美元金额的。我希望格式是1225美元。我能做到的最接近的方法是使用paste0,但是当你对列进行排序时,它并没有像预期的那样工作,我也没有得到数千个逗号
我希望能够在下拉菜单中选择“全部、a、C、D”。如果我选择“A”,它将只显示“Something==A”的表。现在这是可行的,但我不确定我是否以最好的方式编码
这是我的ui.R
library(shiny)
shinyUI(flui
标签: Shiny
r-markdownhtmlwidgets
该问题讨论了在动态R标记文档中很难设置rglwidget的大小这一事实。问题是Shining output函数设置大小,但没有明显的方法向其传递任何参数,因此始终使用默认的512 x 512大小
rgl::renderrgwidget函数是根据htmlwidgets::shinyRenderWidget中的示例编写的,该示例不提供传递输出参数的方法:
rglwidgetOutput <- function(outputId, width = '512px', height = '512px
标签: Shiny
shiny-servershinyjs
我有下面闪亮的应用程序
library(shiny)
runApp(shinyApp(
ui = fluidPage(
shinyjs::useShinyjs(),
selectizeInput(inputId = "aaa", label = NULL, choices = c('a', 'b', 'c', 'd', 'e', 'f'), selected = NULL, width = '90%',
op
标签: Shiny
shiny-reactivity
我试图过滤一个数据帧,然后对数据做一些简单的绘制。我尝试在闪亮的文档上使用R studio示例,并在主题上发布了以下SO帖子:
这是我的密码
---
title: "Shiny Filter Test"
author: "Novice"
date: "12/13/2019"
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
我正在尝试收集地图的纬度和经度值,在shinnyApp-using传单中单击。我可以将值打印为文本,但似乎无法访问要传递以供进一步使用的应用程序内部使用的值。下面列出了我简单的两行代码
place <- reactive(input$map_click)
output$Click_text<-renderText(paste0(place()))
地点
使用Shiny中的单选按钮选择模型。模型由使用katex的公式定义。有没有办法将katex插入按钮选项中
我尝试过与katex不起作用的方法:
radioButtons_withHTML("my_model", label = h4("Choose model"),
choices = list(
HTML(katex("y = (ax^\\nu + b)^{-1}")) = 1,
"Exponential"
标签: Shiny
r-markdownkablekableextra
我已经编写了一个脚本来生成一个rmarkdown报告,当以kable格式输出到pdf格式时,该报告将包含数字结果的QR码附加到数据帧中(请参阅我的相关文章)。QC代码作为图像向量生成,并在生成报告时附加到数据帧中的新列
这很好,但是要以.pdf格式输出表,我必须设置kable(df,format=“markdown”),否则二维码的图像不会被放置在输出表中,而只是文件路径文本。这很好,除非我想使用kableExtra格式选项修改表,该选项要求kable格式为latex
在我下面列出的示例代码中,
标签: Shiny
shinydashboardshiny-servershinyapps
我正在使用Shining应用程序,我需要将数字输入(“num”)保存为变量,并在ifelse语句中使用它
例如,我尝试了myvalue选项1:只要在myvalue的任何地方使用input$num。这不是问题
选项2:使用被动()。注意括号myvalue(),调用它就像调用函数一样。(这是一个函数)
库(闪亮)
谢谢。我有5个输入,需要将它们作为参数插入到我创建的函数中。然后打印函数的结果。你知道怎么做吗?
library(shiny)
ui <- fluidPage(
numeric
我最近开始通过Datatricks使用RStudio服务器
为了启动RStudio服务器,我们工作区的每个成员(10个成员)都需要使用自己的凭据登录(我认为这就是Databricks的设置方式,可能是我们问题的原因)
是否可以只与我工作区的成员共享我创建的闪亮应用程序?
我工作区的其他成员是否可以看到我的代码?当一个人通过databricks共享python笔记本时也会发生类似的事情。我不想将我的应用程序推送到shinyapps.io
我试图与我的一位同事分享我闪亮应用程序的URL,但她收到一条
标签: Shiny
r-markdownshiny-server
我尝试了以下代码来显示多页
资料来源:
对于index.Rmd
```{r, echo = FALSE}
library(shiny)
selectInput("dataset", "Choose Dataset:", c("cars", "iris", "mtcars"))
renderTable({
head(mtcars, 5)
})
```
[Another Shiny Do
我已经用了大约一个月了。我有一个工作应用程序。我希望我的应用程序可供我工作网络中的其他人使用。我使用主机选项使它在RStudio中工作。类似于:runApp(host=“132.207.xx.xx”,port=6215)。为了让它工作,我真的需要使用pc的静态ip。使用localhost选项不起作用
我想对闪亮的服务器也这样做。有没有办法将其配置为执行类似的操作
感谢您在/etc/shinny-server/shinny-server.conf的conf文件中提供的帮助
在服务器{}中添加以下内
我已经在AWS实例上部署了一个使用闪亮服务器的应用程序。当我运行Shiny应用程序时,它在URL XXX.XXX.XXX.XXX/8787/p/1234上启动。我需要与同事共享此URL,但我想隐藏shiny server正在运行的IP+端口号,即我想隐藏XXX.XXX.XXX/8787,或者至少一个IP/端口对他们不可见。有没有办法把这个藏起来?
我希望我的同事看到类似XXX.XXX.XXX.XXX/shinny/p/1234(端口号隐藏)或shinny/p/1234(IP+端口隐藏)的内容。非
我使用fileInput上载一个文件,其中包含本地计算机上多个文件的路径和文件名
然后,我想使用这些文件路径,并将它们直接上传到服务器,而无需用户执行任何其他交互
那么简单地说,我如何将文件上传到我已经知道其本地路径的闪亮服务器
我有下面的闪亮应用程序,其中包含2个selectInput()
库(闪亮)
shinyApp(
ui=fluidPage(
选择输入(“变量”,“变量:”,
c(“A”=“A”,
“B”=“B”,
“C”=“C”)),
uiOutput(“更多控件”)
),
服务器=功能(输入、输出){
输出$MONETCROLLS 您应该考虑为您的选择输入对象实现。
编写模块后,您可以根据需要多次调用该模块,只要每次都提供一个唯一的ID。您是否总是希望用户从每个x、y和z值中进行选择?如果是这样,我将放弃If
我有一个很长的MathJax表达式,需要在一个闪亮的应用程序中打印出来。因为表达式太长,所以需要换行。然而,它目前拒绝这样做
我强烈怀疑这与公式没有呈现为常规文本有关,也就是说,它没有呈现为字符串,而是呈现为一系列跨距,这排除了制作div内容包装的常用方法
我知道MathJax支持换行。我还可以使用KaTeX(见下面的第二个代码块)来包装UI方程,但更愿意将所有内容都保存在MathJax中,因为整个应用程序有多复杂
我所尝试的:
通过CSS,MathJax类的以下变体
单词break:打破一切;
不知道为什么会这样。有人能帮我吗?当应用程序打开时(默认情况下),单击箭头(第二行中的小箭头),会弹出模式框(这很好)。但当选择其他日期(今天除外)时,数据会更改。但现在,如果单击小箭头,则不会弹出模式框。不知道为什么?有人能帮我吗
library(shiny)
library(shinydashboard)
library(DT)
number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))
sideb
我目前正在设计一个输出表格的闪亮应用程序。我想突出显示特定列中的单元格(例如,使单元格变为蓝色)。我尝试过使用shinyBS包中的HighlightRows函数,但似乎不起作用
下面是我的服务器脚本的一部分组成了表:
output$text1 <- renderTable({
tab1 <- as.data.frame(matrix(c(rrround(input$patha,3),PowerF()$tta,input$nxn,rrround(currentInput()$pat
标签: Shiny
ggvisshinydashboard
我使用Shinydashboard环境来显示ggvis图。
我想让其中的3个排成一行,所以我使用了类似的东西(这些图与我实际使用的图并不完全相似,但它们产生了类似的效果):
ui.R
fluidRow(
列(4,输出(“绘图1”),
列(4,输出(“绘图2”),
列(4,输出(“绘图3”))
服务器.R
视觉%ggvis(~1000*mpg,~wt,填充=~vs)%>%layer_points()%>%
设置选项(宽度=自动,高度=400)})
vis%>%bind_闪亮(“图1”)
然而,由
我想使用JavaScript验证表单。我知道我可以
通过提供如下所示的onclick参数,将onclick方法添加到actionButton:
textInput('timeField', "Time",'12:00')
actionButton('okButton',
'OK',
onclick="function(){ if(!(/^([01][0-9]|2[0-3]):([0-6][0-9])$/
我有一些非常简单的shinydashboardcode:
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(id='tab1',
menuItem('tab 1', tabName='tab1',
menuSubItem('subtab 1', tabName='tab1subt
在RShiny应用程序中遵循哪些好的编码模式的好资源/示例
我觉得在我正在创建的闪亮应用程序中,我遵循了两种不好的模式
为了让事情对用户的更改做出正确的反应,我似乎最终将server.r的大部分内容包装在observe()中
在每个observe()的开头,如果所有输入中的任何一个发生更改,我希望表达式重新运行
理想情况下,我想把input[change\u set]放在其中,其中change\u set是输入名称的字符向量,但是这会在[.reactivevalues:不允许对reactive
我试图在单击按钮时在shiny中初始化输出绘图,这意味着按下按钮时将从屏幕上删除输出绘图,但我不知道具体的命令。我试过这样的方法:
observedEvent(input$button, { output$plot1 <- NULL })
observeEvent(输入$按钮,{output$plot1不删除绘图,您可以使用shinyjsshow或隐藏它
rm(list=ls())
library(shiny)
library(shinyjs)
ui <- fluidPage(
标签: Shiny
shinydashboardshinyjs
我的仪表板上有三个盒子。我想在单击某个框打开它时折叠所有其他框
例如:
if i click on box1 to open
box2 and box3 collapse
if I click on box2 to open
box1 and box3 collapse
if I click on box3 to open
box1 and box2 collapse
实际上,您只需要折叠其中一个框,因为在您的设计中,只有一个框可见。因此,请将对活动框的引用保存到某个位置,然后单击“折
我有许多相关的输入字段,希望在用户单击按钮时更新所有这些字段。用例是加载存储的输入设置。下面是一个可复制的示例。“花瓣”selectInput的选择取决于“物种”selectInput中的选择
当我点击按钮时,只有第一个selectInput得到更新
library(shiny)
data(iris)
# ui function
ui <- fluidPage(
uiOutput("species.out"),
uiOutput("petal.out"),
actionB
用户界面
showOutput(“ApplicationClusterChart”,lib=“polycharts”)
服务器.R
output$applicationsClusterRChart您可以使用另一个名为renderChart2的rCharts渲染器,而不是renderChart,来避免此问题:
library(rCharts)
shinyServer(function(input, output) {
output$app <- renderChart2({
提前感谢您阅读本文。
我已经有一段时间构建了闪亮的应用程序,最近我开始学习NODEJS
我一直在努力解决的一个问题是:我怎样才能像服务一样使用闪亮的应用程序来支持其他web应用程序
例如,我想在node js应用程序上处理所有事情,但我有一个交互式绘图,由于巨大的数据操作,在R Shining应用程序中处理这些事情要容易得多
如果你有类似的经历,如果你能传播一些信息,我真的很感激。你可以将应用程序放在iframe中
问题是如何使用逐字输出(“打印输出”)放大打印字体的大小?UI部分如下所示:
mainPanel(
h2("Outcome"),
verbatimTextOutput("Model"),
verbatimTextOutput("printout")
)
此处的“打印输出”由服务器生成,如下所示:
output$printout <- renderPrint({
result <- function1111(obs$Y,obs$X,obs$G)
lapp
我已经将此报告为一个例子,但我想知道社区中是否有人遇到并成功解决了此问题
也就是说,如果要删除边,然后改变主意并单击“取消”,则所有操作选项都将消失
复制:
运行下面的应用程序
点击编辑
点击边缘
单击“删除选定项”
单击“取消”
但是,请注意,我添加标签的唯一原因是,每天使用该标签的人可能不会真正遵循该标签。如果它不符合策略,很乐意将其删除。问题是其中一个函数(clearPopUp)尚未调用。它已在CRAN上可访问的2.0.8版本中修复。问题是其中一个函数(clearPopUp)尚未调用
我想在一个大框旁边以2x2的方式创建4个小框,以显示一个重要的图形,在它旁边创建4个不太重要的图形,但我无法正确放置小框
box(width = 6, height = '300px', solidHeader = TRUE, status = "primary",
title = "Victim Nationality"
#Plot
),
column( 3,
box(width = 3, solidHeader = TRUE, s
我有以下闪亮的应用程序
library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(), # Set up shinyjs
column(3,
div(id = "01", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: green", HTML("01"
我正在设置我的shinyapps.io
我现在可以使用devtools::install\u github('rstudio/shinyapps')安装它,但在此之前,我必须在
但现在我无法授权该账户。还有人到这里吗?这仍然是代理问题吗
> shinyapps::setAccountInfo(name='username', token='<TOKEN>',secret='')
Error in function (type, msg, asError = TRUE) :
标签: Shiny
shinydashboardshinyjs
如何修复这个简单示例上的下载按钮
库(闪亮)
图书馆(shinydashboard)
图书馆(shinyjs)
header看起来,你放在侧边栏中的任何下载按钮都是这样的(与它使用hide/show的事实无关)。如果您只是将按钮移动到主体而不是侧边栏,它看起来会再次正常,如果您向侧边栏添加更多按钮,它们也都会变灰。这告诉我们,这可能与CSS有关
如果您查看按钮的CSS,您将看到规则
.skin-blue .sidebar a {
color: #b8c7ce;
}
因此,它看起来像是
我对使用R Shinny比较陌生,我正在尝试为预测建模构建Shinny应用程序。
我已经准备好R代码,并已将它们加载到R中
请参考下面我准备的ui.r和server.r
shinyUI(
fluidPage(
titlePanel("Prediction"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose Past CSV File',
我是新来的闪亮,我不断得到这个错误没有任何解释“错误书签状态:”。如何进一步了解本地服务器中的错误
我的应用程序有一个有点复杂的工作流程,这意味着如果你点击某些按钮,它会转到另一个选项卡,因此我将书签移动到下一个选项卡,从那时起,它开始给出空的错误消息。它工作正常,因此错误消息很烦人
SEND {"notification":{"type":"show","message":{"html":"Error bookmarking state: ","action":"","deps":[],"du
有关于如何在堆栈溢出和上创建一个通用的。但是,对于问题没有类似的指导原则,而遵守某些标准则更有可能给出高质量的答案,从而解决您的问题
然而,问一个好问题可能很难。应用程序通常庞大而复杂,使用多个数据源,并且代码通常被分割到多个文件中,因此很难与其他人共享易于复制的代码。即使在server.R中可能会出现问题,但如果没有ui.R的内容(以及可能的样式表或global.R等其他文件),该示例也是不可复制的。单独复制粘贴所有这些文件的内容很麻烦,需要其他用户重新创建相同的文件结构才能重现问题
所以,;
我是新来Rshiny的,这是我的第一个问题
我试图为文件夹中的每个数据集插入一个复选框和一个条件面板。如何使条件面板仅在选中复选框时可见
由于id是动态的,我无法访问它的值。请帮帮我,蒂娅
dataDetails <- function(id,nameDef) {
shiny::tags$div(
class="dataSource",
fillRow(
checkboxInput(inputId = paste0("dataSource-", id),
标签: Shiny
shinyjsshiny-reactivity
我们怎样才能让sliderInputs在中闪闪发光“懒惰”地刷新
上下文
在以下基本的可再现闪亮应用程序中,第三个sliderinput取决于第二个sliderinput,即(例如):
2018年没有“第二学期”的可能值
类似地,secondslider输入取决于first sliderinput,即(例如):
产品C没有“2016”可能的价值
虽然下面的应用程序可以工作,但用户体验并不是最佳的,因为每次用户更改一个值时,滑块输入都会刷新。
重要的是,每个sliderinput都要更新
标签: Shiny
shinydashboardshinywidgets
假设您从shinydashboard软件包中有一个简单的valueBox():
library(shiny)
library(shinydashboard)
library(shinyWidgets)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
fluidRow(width = 12,
我想知道是否有可能改变DT表格单元格背景的颜色,而不是基于单元格的值,而是基于单元格值与用户提供的另一个参考号之间的差异。因此,如果差值小于2,则单元格为绿色,如果大于2,则为红色,等等。这样做的目的是能够使用一些评估/公式,而不仅仅是单元格值
下面是使用单元格值作为标准的经典示例,这不是我需要的。
谢谢大家!
库(闪亮)
图书馆(DT)
#>
#>附加包:“DT”
#>以下对象被“package:Shining”屏蔽:
#>
#>dataTableOutput,renderDataTabl
我想在闪亮的::info弹出窗口中插入一个固定的超链接
library(shiny)
library(shinyjs)
library(shinydashboard)
ui <- (
fluidPage(
useShinyjs(),
div(
id = "main_page",
fluidRow( # -------------------------------------------------------
我有这样一个闪亮的代码
library(datasets)
ui <-fluidPage(
titlePanel("Telephones by region"),
sidebarLayout(
sidebarPanel(
selectInput("region", "Region:",
choices=colnames(WorldPhones)), checkboxInput(
我有一些c3仪表,我想有一些工具提示来解释仪表的测量方法。这是我的尝试,但没有成功。谢谢你的帮助
library(c3)
data.frame(`Bullish Percent` = .50) %>%
c3() %>%
c3_gauge(max = 1, threshold = list(unit = "value", max = 1, values = c(.3, .6, 1)))%>%
tooltip(list(title = &quo
我想使用tabPanels,但在ui.R中使用反应式滑块和包含html文件的组合时遇到了问题。这个问题似乎不是由tabPanel引起的,当我将它全部与includeX一起放在主面板中时也会出现
如果我像这里所示那样做,我会得到面板文本和正确渲染的公式,但滑块是乱七八糟的。
如果文本包含为rmd(或md),则滑块将显示在右侧,但公式未正确呈现
我在这里发布了一个类似但略有不同的问题,这些问题可能有相同的原因,但我不确定
server.R
library(shiny)
shinyServer(fu
标签: Shiny
rstudioshinyappsas.date
我正在编写一个闪亮的应用程序,包括加载一个.csv文件,然后显示表格和图形。导入数据的其中一列需要采用日期格式,以便处理进一步的图形。然而,我有一些问题要解决
如果我直接在RStudio工作,这很容易做到:
data_clean <- read.csv(input$file, header = input$header)
data_clean$date <- as.Date(data_clean$date) # converting date to date format
dat
我想用以下内容构建一个面板:
黄色面板是显示绘图的地方,如果生成多个绘图且无法在页面上查看,则应可滚动。绿色面板应该像页面上的页脚一样,即使在滚动黄色面板时也会被修复
这是到目前为止我的代码。我已经设法得到了蓝色,黄色和绿色面板,但不知道如何使事情滚动和修复
data <- mtcars
ui <- fluidPage(
tags$head(
tags$style(HTML("body, pre { height: 100%}")),
tags$style("
当我在R中执行以下代码时,它工作得很好
example<- reactable(data.frame(country=c("argentina","brazil"),
value=c(1,2)
))
withtitle <- htmlwidgets::prependContent(example,
h
1 2 3 4 5 6 ...
下一页 共 6 页