如何在闪亮的应用中禁用modalDialog的反应性
在闪亮的应用中禁用modalDialog的反应性可以通过以下步骤实现：
- 理解modalDialog：modalDialog是一种常见的弹出窗口，用于在应用程序中显示额外的信息或进行用户交互。它通常会阻止用户与应用程序的其他部分进行交互，直到用户关闭该窗口。
- 禁用modalDialog的反应性：要禁用modalDialog的反应性，可以采取以下方法之一：
- a. 使用CSS样式：通过在modalDialog的样式中添加
pointer-events: none;属性，可以禁用对modalDialog的鼠标事件响应。这将使用户无法与modalDialog进行交互，但仍然可以与应用程序的其他部分进行交互。 - b. 使用JavaScript：通过在modalDialog打开时，使用JavaScript代码将焦点设置到其他元素上，可以防止用户通过键盘与modalDialog进行交互。例如，可以将焦点设置到应用程序的主要内容区域或其他可交互的元素上。
- 应用场景：禁用modalDialog的反应性在以下情况下可能会有用：
- a. 当modalDialog中的内容仅用于展示信息，而不需要用户进行任何交互时。
- b. 当应用程序需要在modalDialog打开时，仍然允许用户与应用程序的其他部分进行交互。
- 腾讯云相关产品和产品介绍链接地址：腾讯云提供了丰富的云计算产品和服务，其中包括与应用开发和部署相关的产品。以下是一些与前端开发和应用部署相关的腾讯云产品：
- a. 腾讯云云服务器（CVM）：提供可扩展的云服务器实例，用于部署和运行应用程序。
- b. 腾讯云对象存储（COS）：提供安全可靠的对象存储服务，用于存储和管理应用程序的静态资源。
- c. 腾讯云内容分发网络（CDN）：通过全球分布的加速节点，提供快速可靠的内容分发服务，加速应用程序的访问速度。
- d. 腾讯云云函数（SCF）：提供无服务器计算服务，用于按需运行代码片段，支持应用程序的快速部署和扩展。
- 请注意，以上产品仅为示例，腾讯云还提供其他与云计算和应用开发相关的产品和服务，具体可根据实际需求进行选择。
总结：禁用modalDialog的反应性可以通过CSS样式或JavaScript代码实现，适用于展示信息而不需要用户交互的场景。腾讯云提供了多种与应用开发和部署相关的产品和服务，可根据实际需求选择适合的产品。
相关·内容
在一个闪亮的应用程序中，有两种方法可以跨所有服务器功能访问变量。
一种是在服务器中定义它，然后使用<-操作符访问它。这样做时，而不是会在所有会话之间共享。没有在所有会话之间共享是预期的行为。
library(shiny)
ui <- fluidPage(
actionButton("btn", "Increase num"),
actionButton("msg", "Show num")
)
server <- function(input, output) {
n <- 0
浏览 10提问于2022-07-03得票数 0
我一直在使用showModal(modalDialog(...))在我闪闪发亮的应用程序中以弹出窗口的形式显示图形，但当我将它们放在一个闪亮的模块中时，这些图解就不会呈现出来。
以下简称:非模块触发模式显示图形，模块触发模式为空白.有人有什么想法吗？模态本身的显示是正确的，就像模态的非反应性内容一样(例如，ModalDialog('some text'))。
library(shiny)
# Module UI
myModuleUI = function(id){
ns = NS(id)
fluidRow(
actionButton(ns('butt
浏览 0提问于2018-04-08得票数 1
回答已采纳
1回答
是否有可能在闪亮中打开多个对话框？
在下面的应用程序中，我想显示一个模态对话框，它本身可以打开另一个“细节”模式对话框。这很好，但是每当打开“详细信息”对话框时，第一个对话框就会消失。
我想打开第一个对话框的“顶部”第二个对话框，每当我关闭第二个对话框，我想再次看到第一个对话框。
我怎么才能用闪亮的？
library(shiny)
ui <- basicPage({
actionButton("openDialog", "Open dialog")
})
server <- function(input, output, session) {
浏览 2提问于2018-05-22得票数 7
回答已采纳
在我的闪亮的应用程序中，我希望有一个弹出窗口与一些文本。为了使文本更具可读性，我想包括一些换行符，但到目前为止我失败了。你知道我该怎么做吗？我当前使用的是modalDialog()
ui = basicPage(
actionButton("show", "Show modal dialog")
),
server = function(input, output) {
observeEvent(input$show, {
showModal(modalDialog(
title = "My text",
"This
浏览 1提问于2017-06-08得票数 7
回答已采纳
我正在尝试创建一个闪亮的应用程序。这个应用程序使用用户上传的.csv文件。我并不真正理解fileInput()在存储数据帧方面是如何工作的。
我使用这段代码上传文件：
data_OBS =反应性({ inFile <-输入$file1if (is.null(inFile))返回(NULL) read.csv(inFile$datapath，header=T，sep="，") })
如果我理解得很好，那么数据框架应该可以在data_OBS()中访问。如果我想上传的.csv文件有一个列，例如在普通R环境中名为"CL“，我应该能够使用data_OBS$CL访问。
浏览 2提问于2016-09-25得票数 0
嗨，我正在运行一个本地闪亮的应用程序。我想在UI中嵌入一个链接，它将打开将在其中创建输出文件的本地文件夹的路径。
showModal(modalDialog(title ="Output:",
helpText(a("Click Here To Download The Output",href="C:\\Output\\",target="_blank")),
actionButton("close", "Exit"
浏览 3提问于2018-12-17得票数 0
我对R是新手，当我试图创建一个闪亮的应用程序时，我会面临一个问题。
我的应用程序在一个app.R中包含了UI dan，我想要创建一个启动闪亮应用程序的包。
在服务器函数中，我有一个反应性元素，它基于UI中的dateRangeInput函数对数据集进行子集。下面是UI中代码的一部分
df <- coronavirus # I use coronavirus package from CRAN
ui <- sidebarLayout(
sidebarPanel(
dateRangeInput(
inputId =
浏览 2提问于2020-10-17得票数 2
回答已采纳
2回答
我正在寻找一种改变变量的方法，这个变量是在一个闪亮的应用程序中在反应性上下文之外初始化的。
意思:我有两个变量需要设置，这取决于在闪亮的应用程序中发生了什么，TRUE或FALSE。
这需要从一个反应函数来完成。
示例：
a <- FALSE
c <- FALSE
observeEvent(input$test, { #this triggers c to change to TRUE
a <- FALSE
c <- TRUE
)}
一些用户使用label测试单击按钮。
> c
> TRUE
浏览 3提问于2015-09-15得票数 4
回答已采纳
在不等待modalDialog的用户输入的情况下执行闪亮的代码时，我遇到了问题。下面是一个简单的例子。该应用程序有一个打印按钮和一个输出框。当用户单击按钮时，会弹出一个modalDialog，询问用户要打印什么。如果用户单击打印按钮1按钮，则最终打印的输出将是Button 1打印结果。Button 2也是如此。
library(shiny)
# Main app UI
ui <- fluidPage(
actionButton('print','Print')
,verbatimTextOutput('output')
)
浏览 0提问于2020-07-15得票数 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
回答已采纳
我正在努力使表反应，并导出它在闪亮的应用程序。已经尝试了在服务器内部使用renderDataTable/renderTable，输出函数为datatableOutput/tableOutput，但不走运的是，下面是代码行。
output$tableset <- renderDataTable({
kable(spread_bole) %>%
kable_styling(font_size = 15 ,bootstrap_options = c("striped","hover", "condensed")) })
table
浏览 1提问于2018-07-21得票数 12
回答已采纳
1回答
我有一个带有r-flexdashboard元素的shiny。这个很好用。
现在我必须实现一个登录页面来启动仪表板。
使用包shinymanager，我能够集成一个登录窗口。感谢这篇文章的更新：
我的想法是在正确的登录后显示(Flex-)仪表板元素。我可以读出，如果登录是正确的或不正确。这是一个反应性值(TRUE/ FALSE)。
我要解决的问题是：
是否可以在r chunks中使用此反应性值，即eval选项？
您可以在github：上找到一个完全可复制的示例
若要正确登录，请使用：
user:=发亮
密码:= vh
对于快跑者，我在这里记录主-Rmd-文件的代码：
--
tit
浏览 28提问于2022-10-05得票数 1
1回答
比方说，我的闪亮应用程序中有下面的反应性部分：
data1 <- reactive({
if(input$plotbutton == 0){return()}
inFile <- input$file1
if (is.null(inFile)){return(NULL)}
# Read CSV
df <- read.csv(inFile$datapath, header = TRUE, sep = ",")
df <- df[
浏览 0提问于2018-04-05得票数 0
回答已采纳
1回答
我有一个有按钮的闪亮的应用程序。当我点击按钮时，我会得到一个弹出窗口。这是代码：
library(shiny)
library(shinyBS)
ui<-fluidPage(
actionButton("tabBut", "View Table"),
)
server<-function(input, output){
observeEvent(input$tabBut, {
showModal(
modalDialog(
title = 'Modal Example',
浏览 2提问于2021-09-20得票数 0
回答已采纳
1回答
分配全局/反应变量
、、、
我是非常新的闪亮，因此可能有困难，我的头围绕着如何将普通的R代码转换为可用的闪亮代码。
我希望使用我已经在R中编写的代码，它转换一个CSV文件并创建几个不同的数据帧并将它们写入输出。我使用闪亮的原因是为了使用户更容易使用和更改输入变量。
例如，我有以下代码：
X <- Y %>% filter(grepl("FALSE", ignore.case=T, ZZ)==F | is.na(ZY), KKL!="PLO")
X.Y <- X %>% filter(grepl("ZZZ", ignore.case = T, PLOP
浏览 3提问于2020-06-07得票数 0
回答已采纳
2回答
我正在使用一个闪亮的应用程序，在这里我需要计算进程，当calc进程正在执行时，我使用progressBar来显示进程。
问题是进度条太小了，我不喜欢显示的方式。
因此，我在想，也许有一种方法可以使用一个闪亮的模式来实现进度条(有一个叫做modalDialog的函数)。
我的想法是，当用户运行calc时，将打开一个显示progressBar的模式。
这是进度代码：
withProgress(message = 'Runing GSVA', value = 0, {
incProgress(1, detail = "This may take a while...&
浏览 3提问于2017-05-18得票数 5
回答已采纳
我最近一直在使用“反应模式”，用来显示模态的模式类似于：
const [modalIsOpen, setModalIsOpen] = useState(false);
return (<ModalDialog isOpen={modalIsOpen}><div>some content</div></ModalDialog>)
...which感觉很有反应，但过于冗长。是否有一种方法可以在我可以使用的地方-在单击处理程序中-只需调用：
showModal(MyComponent)
状态是否被自动处理？我考虑过在应用程序周围创建一个上下文，允许sh
浏览 5提问于2021-09-23得票数 1
回答已采纳
1回答
我尝试用API从中提取数据。这是我在这里运行我的闪亮应用程序的两个文件：
ui.R
shinyUI(pageWithSidebar(
headerPanel("My Shiny APP"),
sidebarPanel(
dateRangeInput("dateRange",
label = "Select date range:",
start = Sys.Date() - 7, end = Sys.Date
浏览 2提问于2016-09-27得票数 0
回答已采纳
2回答
我希望移植一些旧的闪亮的应用程序使用闪亮模块，但遇到了麻烦，试图移植我的反应表达式。
根据
其目标不是阻止模块与其包含的应用程序交互，而是使这些交互变得明确。如果模块需要使用反应性表达式，请将该反应性表达式作为函数参数。
我有从API等导入数据的现有反应式，我想传入这些表达式，但似乎找不到语法。如果我修改下面给定的，我就会遇到同样的问题。
有人可以修改下面的内容以便将car_data()反应数据传递到模块中吗？我尝试过isolate和car_data/car_data()的每一种组合，但我都很困惑:)
我倾向于不需要调用模块本身中的数据，因为在我的例子中，我试图泛化适用于许多数据集的E
浏览 1提问于2016-04-18得票数 10
回答已采纳
我正在做R闪亮的web应用程序，允许用户从多个来源上传特定的数据集。该应用程序允许用户首先上传数据，然后使用现有代码对其进行预处理。
例如，如果上传的df1必须对df2和df3使用编码1.R等进行清理。
代码如下所示：
server = function(input, output,session){
vals <- reactiveValues()
observeEvent(input$run, {
vals$korek_out <- korek()
showModal(modalDialog("calcu
浏览 5提问于2020-10-14得票数 0
1回答
我在一个闪亮的应用程序的模式中有一个datatable，我想在一个列中呈现一些LaTeX。我该怎么做？
library(shiny)
library(DT)
ui <- fluidPage(
titlePanel("Hello Shiny!"),
br(),
actionButton("open", "Open")
)
server <- function(input, output, session){
output[["mytable"]] <- renderDT({
d
浏览 6提问于2022-02-21得票数 1
回答已采纳
我正在尝试构建一个闪亮的模块，我可以用它从一个闪亮的应用程序下载不同的文件。但是downloadButton并没有像我所希望的那样工作。它的响应是一个html文件，这不是我想要的。这是我的代码：
library(shiny)
downloadUI <- function(id, label){
ns <- NS(id)
actionButton(
inputId = ns("action"),
label = label,
icon = icon("download")
)
}
downloadServe
浏览 5提问于2021-12-27得票数 3
回答已采纳
我想在一个selectInput()中创建一个modalDialog()。并创建基于该selectInput()的反应性数据集。但是，我得到了错误消息：
Warning: Error in : Problem with `filter()` input `..1`.
i Input `..1` is `name == input$selectName`.
x Input `..1` must be of size 87 or 1, not size 0.
[No stack trace available]
然而，我可以在numericInput()中反应性地创建renderText()的
浏览 9提问于2022-02-19得票数 2
回答已采纳
3回答
我在Microsoft上托管的Docker容器中有一个闪亮的应用程序。当使用Azure Active登录时，应用程序不再工作。
应用程序页是可访问的，但是websocket内容上会返回一个错误500，如上所示。如果没有使用AAD登录，则不会出现此错误。
我尝试在/etc/shiny-server/shiny-server.conf中添加以下选项
sanitize_errors off;
disable_protocols websocket xdr-polling;
这并没有解决问题，网络跟踪也没有改变。我怎样才能强迫闪亮不使用websocket呢？
浏览 1提问于2019-02-26得票数 3
我正在使用闪亮语义库和闪亮语义库，使应用程序看起来很好。使用showModal(modalDialog())的标准闪亮弹出消息不适用于语义UI，因此我求助于shinyjs来使用一些javascript来允许模态。使用全局定义的js模式，如何将datatable集成到模式中？下面是一个最小的例子：
library(shiny)
library(shinyjs)
library(shiny.semantic)
library(DT)
modal.js = "$('.ui.modal')
.modal('show')
;"
server <-
浏览 1提问于2018-05-01得票数 2
在下面的模块化闪亮应用程序中，insertBtn_outer按钮工作正常，但我很难让insertBtn_inner按钮正常工作。非常感谢任何能帮助我解决问题的见解。
library(shiny)
innerUI <- function(id){
ns <- NS(id)
actionButton(ns('insertBtn_inner'), 'Insert')
}
inner <- function(input,output,session){
observeEvent(input$insertBtn_inner, {
浏览 0提问于2019-05-21得票数 1
回答已采纳
我试图在我的闪亮的应用程序中触发一个事件，基于位于modalDialog中的bsplus中的活动幻灯片，我觉得使用shinyjs是前进的方向，因为在控制台中的数据中，类更改为“活动”，但我的js还不够好。
我希望触发的事件是显示一个在初始化时隐藏的绝对面板。
最小示例：
library(shiny)
library(shinyjs)
library(bsplus)
ui <- fluidPage(
useShinyjs(),
hidden(
absolutePanel(
id = "button1", top = "20%",
浏览 4提问于2022-01-04得票数 0
回答已采纳
我需要在服务器端创建一个对话框，因为它是我嵌入到DT中的对话框。
我之所以创建这个问题，是因为我的对话框中有以下内容：
observeEvent(input$show, {
showModal(modalDialog(
title = "Select location:",
uiOutput('select.file'),
# plotOutput("plot"),
easyClose = TRUE
))
})
我将对话框的行嵌入如下：
newrow <- shinyInpu
浏览 5提问于2017-10-04得票数 0
回答已采纳
这是一个简单的闪亮的应用程序：
ui.R
library(shiny)
shinyUI(bootstrapPage(
numericInput("mymun", "enter a number",0),
textOutput("mytext")
))
server.R
library(shiny)
test <- function(input, output){
renderText(paste("this is my number:",input$mymun))
}
shinyServer(functio
浏览 0提问于2014-04-03得票数 3
1回答
我已经看过这个问题了，但似乎仍然不能让我的代码正常工作。
我正在尝试将csv文件读取到一个闪亮的应用程序中，然后使csv文件中的每个单元格成为一个变量，以便稍后在应用程序中使用。这个是可能的吗？我一直在阅读有关使用隔离()的文章，但它对我来说并不奏效。每次我从文件中的信息中创建一个变量时，都会出现一个错误，说明由于文件是被动的，所以不能创建它。我在文件中读取的代码如下。任何关于如何从csv的内容中创建变量的帮助都是非常有帮助的。
filedata <- reactive({
inFile <- input$datafile
if (is.null(inFile))
浏览 0提问于2017-08-31得票数 2
回答已采纳
1回答
在计算出之后，我创建了一个闪亮的服务器，该服务器基于反应性输入动态创建wav文件。但是，第一个wav文件将被缓存，尽管对该文件进行了更改，甚至重命名了该文件，但只有第一个wav被播放，直到整个页面刷新。
当一个基于HTML的闪亮应用程序改变了wav文件之后，我怎么能播放它呢？
我知道这个问题已经被问到(并解决了)在一些地方的HTML开发人员，使用或或，但我还没有弄清楚如何使这些工作与闪亮。
浏览 2提问于2016-03-24得票数 3
回答已采纳
我正在构建一个R闪亮的应用程序，并有一个actionButton，当点击时，打开一组说明。这些说明保存在一个HTML文件中，该文件保存在我的/Data文件夹中。由于打开的modalDialog有点长，我想为用户提供一个单击对话框中的链接的选项，该链接将在新选项卡中打开相同的HTML文件。 我曾尝试在我的href文件中添加一个HTML，但似乎不起作用(而且可能是递归的？)。 重新创建它所需的最低代码如下： hsHTML <- htmlTemplate("Health stats user guide.html")
ui <- mainPanel( id =
浏览 13提问于2019-04-02得票数 0
我有一个闪亮的应用程序，它既有一个反应性表，也有一个使用反应性表作为数据集的ggplot2线图(时间序列)。我在线条图中使用scale_x_date(date_breaks = "1 week")，而所看到的日期的min和max值随反应表的变化而适当变化。
我的问题是，我希望每周间隔为星期六(对应于我们的财政周末，以及反应性表中的所有时间戳)，但是ggplot2默认显示星期一。如何更改x轴以显示星期六，但也可根据反应性表进行适当的缩放？
浏览 1提问于2018-08-09得票数 1
回答已采纳
这个问题与有关。这两者可以生成相同的功能，但实现略有不同。一个重要的区别是，reactiveValue是一个容器，它可以有多个值，比如input$。在中，功能通常是使用reactive()实现的，但在大多数情况下，我发现reactiveValues()更方便。这里有渔获物吗？我可能没有意识到，这两者之间还有什么其他重大的差异吗？这两个代码段等效吗？
请参见使用以下方法实现的相同：
反应性的表达：
库(闪亮) ui <- fluidPage(闪亮:数字输入(inputId= 'n'，label = 'n'，value = 2)，闪亮:textOutput
浏览 8提问于2016-09-11得票数 87
回答已采纳
我在闪亮代码的服务器函数中有一个反应变量。此变量包含路径。它应该根据用户的输入而改变。我的代码是:- ui代码： map<-function(){ # A function to display pop up in summary tab for director where he/she can select the school name
modalDialog(
fade = FALSE,
footer = modalButton("Confirm"),
title = 'Select t
浏览 22提问于2021-06-27得票数 0
1回答
我正在开发一个闪亮的应用程序，让你可以导入一些数据，操作，并绘制它们。当您对分析感到满意时，您可以使用python脚本生成一个.xlsx文件(我正在使用网络来使它在这个闪亮的应用程序中工作)：
server <- function(input, output){
observeEvent(input$run_py, {
# pass variable from R to Py
py$df <- avg.spread()
py$var <- var.spread()
py_run_file('py_export_excel.py
浏览 2提问于2020-04-15得票数 0
回答已采纳
我有以下代码。
library(shiny)
library(dplyr)
library(DT)
app <- shinyApp(
ui = fluidPage(
tags$head(tags$style("#modal1 .modal-header {background-color: #339FFF}")),
DT::dataTableOutput("mydatatable")
),
server = shinyServer(function(input, output, session) {
浏览 4提问于2021-03-18得票数 0
1回答
我有一个完美的R闪亮的应用程序，但由于某种原因，它不反应的行动按钮。下面是最小的可重现的例子。什么都不会发生，也不会抛出错误。它就是没有反应。这个应用程序好像被冻结了。
library(shiny)
shinyApp(
ui = fluidPage(
actionButton('go_button','Go!'),
uiOutput('my_output'),
uiOutput('my_output')
),
server = function(input,output,session) {
浏览 18提问于2020-05-19得票数 0
回答已采纳
使用了非常基本的、闪亮的脚本，并且能够在通用数据集中发挥作用。当我尝试放进我自己的和运行ggplot时，我遇到了几个错误。最近出现在我的主面板的闪亮的应用程序和控制台在Rstudio ."ggplot2不知道如何处理类反应性的数据“。通常，我将ggplot简化为最基本的元素，并且仍然不确定ggplot是在哪里调用数据的，而不是在闪亮的位置。我猜是反应功能，但老实说，我迷路了。
以下是脚本
_____ui.R________
shinyUI(pageWithSidebar(
headerPanel('Mock Risk Scorecard'),
sidebarPa
浏览 2提问于2015-01-04得票数 2
回答已采纳
1回答
我正在写一个闪亮的应用程序。我想在用DT包创建的datatable中使用工具提示。我正在使用CSS样式的工具提示。请注意，当您在单元格(而不是单元格本身)中的单个单词上悬停时，工具提示应该出现。下面是一个最小的工作示例。我这样做是在R标记，而不是闪亮，因为它提供了一个更整洁的例子(不需要指定反应元素等)。
我在html编辑器中检查了CSS，它似乎运行良好。问题是DT表对任何CSS都是“盲”的。是否有任何方法使工具提示在datatable中正常工作？谢谢。
---
title: "MWE_tooltip"
author: "Nick Riches"
date: &
浏览 0提问于2019-02-03得票数 1
回答已采纳
我曾尝试使用insertUI作为显式使用模块UI的选择，但在闪亮的应用程序的UI部分，但没有成功。如何在我的示例中使用insertUI以获得所需的效果，即能够显示modalDialog
--这并不适用于(在应用程序的UI部分中使用insertUI而不是显式使用模块)：
library(shiny)
library(magrittr)
modUI <- function(id) {
ns <- NS(id)
key_pressed <- ns("key_pressed")
js <- glue::glue_safe('
doc
浏览 2提问于2022-03-05得票数 1
回答已采纳
1回答
我有一个大的闪亮的应用程序，多个元素改变reactiveVals。现在我想移植应用程序使用闪亮的模块，以便能够更合适地测试它。但是，我无法访问服务器函数中定义的反应性值。
米维
到目前为止，一个简单的应用程序突出了我的思维过程，就是这个计数器应用程序。应用程序由两个模块组成：counter和display。
counter在单击buttondisplay时增加反应性计数器值，监视计数器并将其输出显示给文本字段。
应用程序的主要部分是一个名为counter_reactive的“中央”反应性值，它保存当前的计数。此值由counter设置，由display模块元素读取。
library(shiny)
浏览 0提问于2020-08-26得票数 0
我正在开发一个更大的闪亮的应用程序，我想包括一个模块，作为一个菜单的工作。在此模块中，您可以在其他独立模块之间进行选择，并通过单击操作按钮激活一个模块。所选的模块将作为一个闪亮的模式弹出。 但是，我找不到一个很好的方法将操作按钮输入从一个模块传递到另一个模块，因为如果我将其作为反应值传递，它将只工作一次，而不是在关闭模块后第二次工作。我相信这是因为observeEvent没有记录传递的反应值中的任何变化。 你对如何解决这个问题有什么建议吗？我需要一种完全不同的方法吗？ 下面是一个有效的示例： # Load packages
library(shiny)
# mod_1 ui
# This
浏览 13提问于2020-04-06得票数 1
回答已采纳
对于一个闪亮的应用程序，在server.R中，我目前通过反应性命令从输入的文件中加载数据。当我在server.R中的多个显示中调用data1()时(见下文)，是否有一种方法只调用data1一次？如果在呈现方法之外使用data1()，则会得到以下错误：“没有活动的反应上下文就不允许操作”。
data1 <- reactive({
file1 = input$file1
if (is.null(file1))
return(NULL)
data <- getNormalizedData(file1$datapath, input$value)
data
}
浏览 1提问于2018-03-12得票数 1
回答已采纳
我的应用程序有一个很大的缓存对象，它在启动时使用readRDS()加载，在shinyServer()处理中利用它来填充shinyUI()定义的textOutput()。
是否有一些技巧来填充textOutput UI，上面写着“正在加载缓存对象……”就在readRDS()调用之前，并在完成加载后将其更改为"loaded cache object of size，object.size(cacheLoadedObject)“？
这一点UI行为很重要的原因是，应用程序输入框将在从磁盘加载对象之前接受输入，但在从磁盘加载对象之前，它们基本上不起作用，因为它们触发的反应式()和renderTe
浏览 6提问于2017-08-15得票数 0
回答已采纳
我正试图将一个简单的整数传递给一个闪亮的Flexdashboard。但出于某种原因，我只能静默地对它进行研究，但我宁愿让它恢复活力；
aggregated_static <- readRDS( "../rdsdata/aggregated_static.rds")
k <- nrow(aggregated_static)
这段代码将行数传递给我的闪亮的破折号，在那里它可以被访问；
item_lines = k
但是，如果我这样做，它就不会起作用，告诉我我不能从那个地方访问反应性内容；
set_aggregated <- reactiveFileReader(1
浏览 0提问于2018-06-14得票数 0
2回答
我创造了一个闪亮的应用程序。但是输入按钮不是反应性的。下面是代码的快照：
服务器：
A<-reactive({
x<-input$RunModel
quit()##Their is another function here, i wrote quit() just for ilustration
})
HTML:
<INPUT style="background-color:#143d4d;color:white;" onclick="newDoc(this.value)" TYPE="button&#
浏览 10提问于2015-04-19得票数 0
回答已采纳
我在一个闪亮的应用程序中使用了一些JavaScript代码，以便在模式中设置textAreaInput的样式。我的代码如下所示：
library(shiny)
codeJS <- "
document.addEventListener('DOMContentLoaded', function(event)
{
function init (inputID)
{
var text = document.getElementById(inputID);
text.style.color
浏览 6提问于2021-03-02得票数 1
1回答
我有一个问题，更新一个反应值的闪亮。
所以我的应用程序所做的就是从用户那里保存textInputs。当用户决定上传所有文本输入时，我希望重置textInputs。
下面是示例代码：
ui.R
ui <- fluidPage(
sidebarPanel(
textInput("words", "Please enter a word"),
actionButton("submit_new_word", "Save"), # this submits each single word
textOu
浏览 2提问于2020-03-12得票数 0
回答已采纳
我有一个闪亮的应用程序，包含一个模态对话框弹出窗口。我只想在我操作一个操作按钮时显示信息弹出窗口。我添加了一个reactiveEvent()，但似乎不起作用，我不想使用ShinyBS包进行一些公司限制，谢谢您的帮助 应用程序代码： library(shiny)
ui <- shinyUI(fluidPage(
titlePanel("Example"),
sidebarLayout(
sidebarPanel(
selectInput("decision", label = "Choose your species
浏览 11提问于2019-09-18得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
