ShinyDashborad-仪表板侧栏-复选框输入边距顶部

我试图减少checkboxinput的上边距,因为它与其他输入不同,正如您在第一个菜单项中看到的,即使我定义的上边距等于0px。我找到的解决方案是定义一个负的上边距,但当我定义它时,复选框隐藏了actionLink上边距减少 谁能解决这个问题 library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( menuItem("teste",

Shiny 闪亮-如何禁用仪表板标题

我是新手。当我制作项目时,我需要在服务器端隐藏dashboardHeader 在shinydashboard网站上,我找到了代码仪表板标题(disable=TRUE)。我试过了,但没用 然而,我尝试使用shinyjs来解决这个问题 <code> library(shiny) library(shinydashboard) library(shinyjs) ui <- dashboardPage( dashboard

使用shinyproxy部署shiny-未显示应用程序

我已经开发了一个闪亮的应用程序,我正在尝试使用shinyproxy进行第一次轻量级部署。 所有的安装看起来都很好。 我已经安装了docker,java 我认为构建一个包装应用程序和其他功能的软件包是个好主意。 因此,我开发了一个包(CI),并且CI::launch_应用程序基本上是RunApp功能的包装器。代码如下: launch_application <- function(launch.browser = interactive(), ...) { runApp( app

Shiny 观察事件不';t按照我的方式运行代码';I’我想

我想确保当我们点击按钮时,我们在逐字输出中发送,然后我们暂停2秒,最后发送。 但是我得到的是一个暂停2s,然后它发送1和2 我该怎么做 library(shiny) ui <- fluidPage( verbatimTextOutput("output", placeholder = TRUE), actionButton("b", "button") ) server <- function(input, output, session) { o <- r

Shiny 闪亮的桌面应用程序,一栏中有钱,按因素归档?

我正在尝试创建一个闪亮的应用程序,它基本上是一个带有“关于”选项卡的表格 有两件事我遇到了麻烦: 其中一列是具有美元金额的。我希望格式是1225美元。我能做到的最接近的方法是使用paste0,但是当你对列进行排序时,它并没有像预期的那样工作,我也没有得到数千个逗号 我希望能够在下拉菜单中选择“全部、a、C、D”。如果我选择“A”,它将只显示“Something==A”的表。现在这是可行的,但我不确定我是否以最好的方式编码 这是我的ui.R library(shiny) shinyUI(flui

Shiny 如何使用Shining::markRenderFunction?

该问题讨论了在动态R标记文档中很难设置rglwidget的大小这一事实。问题是Shining output函数设置大小,但没有明显的方法向其传递任何参数,因此始终使用默认的512 x 512大小 rgl::renderrgwidget函数是根据htmlwidgets::shinyRenderWidget中的示例编写的,该示例不提供传递输出参数的方法: rglwidgetOutput <- function(outputId, width = '512px', height = '512px

Shinyjs无法正确启用/禁用UI元素

我有下面闪亮的应用程序 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 如何过滤闪亮文档中的数据框并显示数据表?

我试图过滤一个数据帧,然后对数据做一些简单的绘制。我尝试在闪亮的文档上使用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) ```

传递输入列表$map\u在shinyapp内单击

我正在尝试收集地图的纬度和经度值,在shinnyApp-using传单中单击。我可以将值打印为文本,但似乎无法访问要传递以供进一步使用的应用程序内部使用的值。下面列出了我简单的两行代码 place <- reactive(input$map_click) output$Click_text<-renderText(paste0(place())) 地点

Shiny R闪亮的单选按钮与katex对齐

使用Shiny中的单选按钮选择模型。模型由使用katex的公式定义。有没有办法将katex插入按钮选项中 我尝试过与katex不起作用的方法: radioButtons_withHTML("my_model", label = h4("Choose model"), choices = list( HTML(katex("y = (ax^\\nu + b)^{-1}")) = 1, "Exponential"

Shiny 如何使用rmarkdown将带有嵌入图像的表格格式化为pdf格式?

我已经编写了一个脚本来生成一个rmarkdown报告,当以kable格式输出到pdf格式时,该报告将包含数字结果的QR码附加到数据帧中(请参阅我的相关文章)。QC代码作为图像向量生成,并在生成报告时附加到数据帧中的新列 这很好,但是要以.pdf格式输出表,我必须设置kable(df,format=“markdown”),否则二维码的图像不会被放置在输出表中,而只是文件路径文本。这很好,除非我想使用kableExtra格式选项修改表,该选项要求kable格式为latex 在我下面列出的示例代码中,

Shiny 闪亮应用程序-将输入条目保存为变量并在代码中使用

我正在使用Shining应用程序,我需要将数字输入(“num”)保存为变量,并在ifelse语句中使用它 例如,我尝试了myvalue选项1:只要在myvalue的任何地方使用input$num。这不是问题 选项2:使用被动()。注意括号myvalue(),调用它就像调用函数一样。(这是一个函数) 库(闪亮) 谢谢。我有5个输入,需要将它们作为参数插入到我创建的函数中。然后打印函数的结果。你知道怎么做吗? library(shiny) ui <- fluidPage( numeric

Shiny 在databricks中与我的工作区成员共享闪亮的应用程序

我最近开始通过Datatricks使用RStudio服务器 为了启动RStudio服务器,我们工作区的每个成员(10个成员)都需要使用自己的凭据登录(我认为这就是Databricks的设置方式,可能是我们问题的原因) 是否可以只与我工作区的成员共享我创建的闪亮应用程序? 我工作区的其他成员是否可以看到我的代码?当一个人通过databricks共享python笔记本时也会发生类似的事情。我不想将我的应用程序推送到shinyapps.io 我试图与我的一位同事分享我闪亮应用程序的URL,但她收到一条

Shiny r标记多个页面

我尝试了以下代码来显示多页 资料来源: 对于index.Rmd ```{r, echo = FALSE} library(shiny) selectInput("dataset", "Choose Dataset:", c("cars", "iris", "mtcars")) renderTable({ head(mtcars, 5) }) ``` [Another Shiny Do

Shiny 如何指定我的服务器的主机ip地址

我已经用了大约一个月了。我有一个工作应用程序。我希望我的应用程序可供我工作网络中的其他人使用。我使用主机选项使它在RStudio中工作。类似于:runApp(host=“132.207.xx.xx”,port=6215)。为了让它工作,我真的需要使用pc的静态ip。使用localhost选项不起作用 我想对闪亮的服务器也这样做。有没有办法将其配置为执行类似的操作 感谢您在/etc/shinny-server/shinny-server.conf的conf文件中提供的帮助 在服务器{}中添加以下内

Shiny 使用Shining Server在Shining应用程序中隐藏端口号

我已经在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+端口隐藏)的内容。非

Shiny Shinny:从客户端将本地文件上载到服务器

我使用fileInput上载一个文件,其中包含本地计算机上多个文件的路径和文件名 然后,我想使用这些文件路径,并将它们直接上传到服务器,而无需用户执行任何其他交互 那么简单地说,我如何将文件上传到我已经知道其本地路径的闪亮服务器

Shiny 如何让我记忆来自多个selectInputs的各种选择

我有下面的闪亮应用程序,其中包含2个selectInput() 库(闪亮) shinyApp( ui=fluidPage( 选择输入(“变量”,“变量:”, c(“A”=“A”, “B”=“B”, “C”=“C”)), uiOutput(“更多控件”) ), 服务器=功能(输入、输出){ 输出$MONETCROLLS 您应该考虑为您的选择输入对象实现。 编写模块后,您可以根据需要多次调用该模块,只要每次都提供一个唯一的ID。您是否总是希望用户从每个x、y和z值中进行选择?如果是这样,我将放弃If

Shiny 强制MathJax使用闪亮的div进行包装

我有一个很长的MathJax表达式,需要在一个闪亮的应用程序中打印出来。因为表达式太长,所以需要换行。然而,它目前拒绝这样做 我强烈怀疑这与公式没有呈现为常规文本有关,也就是说,它没有呈现为字符串,而是呈现为一系列跨距,这排除了制作div内容包装的常用方法 我知道MathJax支持换行。我还可以使用KaTeX(见下面的第二个代码块)来包装UI方程,但更愿意将所有内容都保存在MathJax中,因为整个应用程序有多复杂 我所尝试的: 通过CSS,MathJax类的以下变体 单词break:打破一切;

Shiny DT表功能

不知道为什么会这样。有人能帮我吗?当应用程序打开时(默认情况下),单击箭头(第二行中的小箭头),会弹出模式框(这很好)。但当选择其他日期(今天除外)时,数据会更改。但现在,如果单击小箭头,则不会弹出模式框。不知道为什么?有人能帮我吗 library(shiny) library(shinydashboard) library(DT) number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE))) sideb

Shiny 在列表中仅高亮显示表中的一列

我目前正在设计一个输出表格的闪亮应用程序。我想突出显示特定列中的单元格(例如,使单元格变为蓝色)。我尝试过使用shinyBS包中的HighlightRows函数,但似乎不起作用 下面是我的服务器脚本的一部分组成了表: output$text1 <- renderTable({ tab1 <- as.data.frame(matrix(c(rrround(input$patha,3),PowerF()$tta,input$nxn,rrround(currentInput()$pat

Shiny x轴上的值在屏幕上的ggvis图中重叠

我使用Shinydashboard环境来显示ggvis图。 我想让其中的3个排成一行,所以我使用了类似的东西(这些图与我实际使用的图并不完全相似,但它们产生了类似的效果): ui.R fluidRow( 列(4,输出(“绘图1”), 列(4,输出(“绘图2”), 列(4,输出(“绘图3”)) 服务器.R 视觉%ggvis(~1000*mpg,~wt,填充=~vs)%>%layer_points()%>% 设置选项(宽度=自动,高度=400)}) vis%>%bind_闪亮(“图1”) 然而,由

Shiny 使用JavaScript验证应用程序中的字段

我想使用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])$/

shinydashboard侧边栏无法打开多个选项卡

我有一些非常简单的shinydashboardcode: library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu(id='tab1', menuItem('tab 1', tabName='tab1', menuSubItem('subtab 1', tabName='tab1subt

RShiny应用程序中的良好编码模式?

在RShiny应用程序中遵循哪些好的编码模式的好资源/示例 我觉得在我正在创建的闪亮应用程序中,我遵循了两种不好的模式 为了让事情对用户的更改做出正确的反应,我似乎最终将server.r的大部分内容包装在observe()中 在每个observe()的开头,如果所有输入中的任何一个发生更改,我希望表达式重新运行 理想情况下,我想把input[change\u set]放在其中,其中change\u set是输入名称的字符向量,但是这会在[.reactivevalues:不允许对reactive

Shiny 删除系统中的输出绘图

我试图在单击按钮时在shiny中初始化输出绘图,这意味着按下按钮时将从屏幕上删除输出绘图,但我不知道具体的命令。我试过这样的方法: observedEvent(input$button, { output$plot1 <- NULL }) observeEvent(输入$按钮,{output$plot1不删除绘图,您可以使用shinyjsshow或隐藏它 rm(list=ls()) library(shiny) library(shinyjs) ui <- fluidPage(

Shiny 当一个盒子打开时,折叠所有其他盒子。。闪亮的

我的仪表板上有三个盒子。我想在单击某个框打开它时折叠所有其他框 例如: 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 实际上,您只需要折叠其中一个框,因为在您的设计中,只有一个框可见。因此,请将对活动框的引用保存到某个位置,然后单击“折

Shiny 更新多个相关输入

我有许多相关的输入字段,希望在用户单击按钮时更新所有这些字段。用例是加载存储的输入设置。下面是一个可复制的示例。“花瓣”selectInput的选择取决于“物种”selectInput中的选择 当我点击按钮时,只有第一个selectInput得到更新 library(shiny) data(iris) # ui function ui <- fluidPage( uiOutput("species.out"), uiOutput("petal.out"), actionB

Shiny 使用rCharts时出现polycharts错误

用户界面 showOutput(“ApplicationClusterChart”,lib=“polycharts”) 服务器.R output$applicationsClusterRChart您可以使用另一个名为renderChart2的rCharts渲染器,而不是renderChart,来避免此问题: library(rCharts) shinyServer(function(input, output) { output$app <- renderChart2({

Shiny 将闪亮应用嵌入另一个web应用

提前感谢您阅读本文。 我已经有一段时间构建了闪亮的应用程序,最近我开始学习NODEJS 我一直在努力解决的一个问题是:我怎样才能像服务一样使用闪亮的应用程序来支持其他web应用程序 例如,我想在node js应用程序上处理所有事情,但我有一个交互式绘图,由于巨大的数据操作,在R Shining应用程序中处理这些事情要容易得多 如果你有类似的经历,如果你能传播一些信息,我真的很感激。你可以将应用程序放在iframe中

Shiny 放大文本中逐字输出(“打印输出”)的字体大小

问题是如何使用逐字输出(“打印输出”)放大打印字体的大小?UI部分如下所示: mainPanel( h2("Outcome"), verbatimTextOutput("Model"), verbatimTextOutput("printout") ) 此处的“打印输出”由服务器生成,如下所示: output$printout <- renderPrint({ result <- function1111(obs$Y,obs$X,obs$G) lapp

Shiny 如果在visNetwork';提示

我已经将此报告为一个例子,但我想知道社区中是否有人遇到并成功解决了此问题 也就是说,如果要删除边,然后改变主意并单击“取消”,则所有操作选项都将消失 复制: 运行下面的应用程序 点击编辑 点击边缘 单击“删除选定项” 单击“取消” 但是,请注意,我添加标签的唯一原因是,每天使用该标签的人可能不会真正遵循该标签。如果它不符合策略,很乐意将其删除。问题是其中一个函数(clearPopUp)尚未调用。它已在CRAN上可访问的2.0.8版本中修复。问题是其中一个函数(clearPopUp)尚未调用

Shiny 4个小盒子旁边的大盒子使用R

我想在一个大框旁边以2x2的方式创建4个小框,以显示一个重要的图形,在它旁边创建4个不太重要的图形,但我无法正确放置小框 box(width = 6, height = '300px', solidHeader = TRUE, status = "primary", title = "Victim Nationality" #Plot ), column( 3, box(width = 3, solidHeader = TRUE, s

Shiny 如何改善我的闪亮应用程序的滞后效应

我有以下闪亮的应用程序 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+;授权账户+;超时端口443

我正在设置我的shinyapps.io 我现在可以使用devtools::install\u github('rstudio/shinyapps')安装它,但在此之前,我必须在 但现在我无法授权该账户。还有人到这里吗?这仍然是代理问题吗 > shinyapps::setAccountInfo(name='username', token='<TOKEN>',secret='') Error in function (type, msg, asError = TRUE) :

Shinydashboard灰显下载按钮?

如何修复这个简单示例上的下载按钮 库(闪亮) 图书馆(shinydashboard) 图书馆(shinyjs) header看起来,你放在侧边栏中的任何下载按钮都是这样的(与它使用hide/show的事实无关)。如果您只是将按钮移动到主体而不是侧边栏,它看起来会再次正常,如果您向侧边栏添加更多按钮,它们也都会变灰。这告诉我们,这可能与CSS有关 如果您查看按钮的CSS,您将看到规则 .skin-blue .sidebar a { color: #b8c7ce; } 因此,它看起来像是

如何获取有关Shiny的详细错误消息?

我是新来的闪亮,我不断得到这个错误没有任何解释“错误书签状态:”。如何进一步了解本地服务器中的错误 我的应用程序有一个有点复杂的工作流程,这意味着如果你点击某些按钮,它会转到另一个选项卡,因此我将书签移动到下一个选项卡,从那时起,它开始给出空的错误消息。它工作正常,因此错误消息很烦人 SEND {"notification":{"type":"show","message":{"html":"Error bookmarking state: ","action":"","deps":[],"du

Shiny 如何将包含多个文件的闪亮应用程序转换为易于共享和再现的闪亮示例?

有关于如何在堆栈溢出和上创建一个通用的。但是,对于问题没有类似的指导原则,而遵守某些标准则更有可能给出高质量的答案,从而解决您的问题 然而,问一个好问题可能很难。应用程序通常庞大而复杂,使用多个数据源,并且代码通常被分割到多个文件中,因此很难与其他人共享易于复制的代码。即使在server.R中可能会出现问题,但如果没有ui.R的内容(以及可能的样式表或global.R等其他文件),该示例也是不可复制的。单独复制粘贴所有这些文件的内容很麻烦,需要其他用户重新创建相同的文件结构才能重现问题 所以,;

Rshiny-动态ID上的条件面板

我是新来Rshiny的,这是我的第一个问题 我试图为文件夹中的每个数据集插入一个复选框和一个条件面板。如何使条件面板仅在选中复选框时可见 由于id是动态的,我无法访问它的值。请帮帮我,蒂娅 dataDetails <- function(id,nameDef) { shiny::tags$div( class="dataSource", fillRow( checkboxInput(inputId = paste0("dataSource-", id),

Shiny 如何制作sliderInput';懒惰';并仅在需要时刷新

我们怎样才能让sliderInputs在中闪闪发光“懒惰”地刷新 上下文 在以下基本的可再现闪亮应用程序中,第三个sliderinput取决于第二个sliderinput,即(例如): 2018年没有“第二学期”的可能值 类似地,secondslider输入取决于first sliderinput,即(例如): 产品C没有“2016”可能的价值 虽然下面的应用程序可以工作,但用户体验并不是最佳的,因为每次用户更改一个值时,滑块输入都会刷新。 重要的是,每个sliderinput都要更新

Shiny 更改valueBox中图标的位置

假设您从shinydashboard软件包中有一个简单的valueBox(): library(shiny) library(shinydashboard) library(shinyWidgets) ui <- dashboardPage( dashboardHeader(title = "Basic dashboard"), dashboardSidebar(), dashboardBody( fluidRow(width = 12,

Shiny 如何根据公式而不是单元格值更改闪亮DT表的单元格颜色?

我想知道是否有可能改变DT表格单元格背景的颜色,而不是基于单元格的值,而是基于单元格值与用户提供的另一个参考号之间的差异。因此,如果差值小于2,则单元格为绿色,如果大于2,则为红色,等等。这样做的目的是能够使用一些评估/公式,而不仅仅是单元格值 下面是使用单元格值作为标准的经典示例,这不是我需要的。 谢谢大家! 库(闪亮) 图书馆(DT) #> #>附加包:“DT” #>以下对象被“package:Shining”屏蔽: #> #>dataTableOutput,renderDataTabl

Shiny 将超链接显示为闪亮的::信息

我想在闪亮的::info弹出窗口中插入一个固定的超链接 library(shiny) library(shinyjs) library(shinydashboard) ui <- ( fluidPage( useShinyjs(), div( id = "main_page", fluidRow( # -------------------------------------------------------

Shiny 如何在屏幕上为c3仪表添加工具提示

我有一些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

Shiny 反应式滑块在闪亮和呈现html文件时不能一起工作

我想使用tabPanels,但在ui.R中使用反应式滑块和包含html文件的组合时遇到了问题。这个问题似乎不是由tabPanel引起的,当我将它全部与includeX一起放在主面板中时也会出现 如果我像这里所示那样做,我会得到面板文本和正确渲染的公式,但滑块是乱七八糟的。 如果文本包含为rmd(或md),则滑块将显示在右侧,但公式未正确呈现 我在这里发布了一个类似但略有不同的问题,这些问题可能有相同的原因,但我不确定 server.R library(shiny) shinyServer(fu

Shiny 上载.csv并更改为.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

Shiny 闪亮布局:构建一个闪亮的页面,其中包含一个可滚动的面板和一个保持固定的面板

我想用以下内容构建一个面板: 黄色面板是显示绘图的地方,如果生成多个绘图且无法在页面上查看,则应可滚动。绿色面板应该像页面上的页脚一样,即使在滚动黄色面板时也会被修复 这是到目前为止我的代码。我已经设法得到了蓝色,黄色和绿色面板,但不知道如何使事情滚动和修复 data <- mtcars ui <- fluidPage( tags$head( tags$style(HTML("body, pre { height: 100%}")), tags$style("

  1    2   3   4   5   6  ... 下一页 共 6 页