我是R的新手,也许有人可以帮我解决有关闪亮问题的问题.
我想上传一个data.frame作为带闪亮的csv,之后我想通过一些计算来改变data.frame,然后我想用闪亮的应用程序再次下载data.frame.让我们说我有一个数据帧:
x <- data.frame(value1=c(1:100), value2=c(101:200)) #data frame I uploaded
x$value2 <- x$value2/x$value1 # calculation
# then download it
在闪亮的图库的帮助下,我的代码到目前为止看起来像这样:(我只是尝试上传csv并再次下载而不进行计算):
ui.R:
library(shiny)
fluidPage(
titlePanel("Uploading Files"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv')),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"'),
downloadButton('downloadData', 'Download')
),
mainPanel(
tableOutput('contents')
)
)
)
server.R:
library(shiny)
function(input, output) {
output$contents <- renderTable({
inFile <- input$file1
if (is.null(inFile))
return(NULL)
read.csv(inFile$datapath, header=input$header, sep=input$sep,
quote=input$quote)
})
output$downloadData …在 Shiny 应用程序中，我想在应用程序运行时禁用所有按钮。我有很多动作按钮、依赖项和一些 renderui 的东西，所以我认为使用 Shinyjs:disable(button) 是至关重要的，而且超过 40 个和更多的按钮非常不干净。
当闪亮的应用程序很忙时，是否有一种简单的方法可以禁用按钮（或同时禁用所有按钮/滑块），例如在我下面示例应用程序的“正在加载..”元素的情况下？
或者是否有另一种方法可以在“正在加载..”文本指示的长时间计算运行时禁用所有按钮被单击或使它们不可见？
在下面的示例中，我想在应用程序繁忙时禁用操作按钮（显示“正在加载..”文本）。我知道对于这个例子，我可以使用 Shinyjs，但我更喜欢在应用程序繁忙时使用整体解决方案。任何帮助都非常受欢迎，我对 html、css 和 java 的东西完全陌生，所以如果有人知道解决方案，简短的解释会非常棒！
提前谢谢了！
library(shiny)
server <- function(input, output) {
output$moreControls <- renderUI({if(input$obs!=10001) actionButton("button", "OK!")})
observeEvent(input$button, {
output$distPlot <- renderPlot({
Sys.sleep(5)
hist(rnorm(isolate(input$obs)), col = 'darkgray', border = 'white')
})})
}
ui <- fluidPage(tags$head(tags$style(type="text/css", "
#loadmessage {
position: fixed;
top: 95%;
left: 0px;
width: 100%;
padding: 5px 0px 5px 0px;
text-align: center;
font-weight: bold;
font-size: 100%;
color: #000000;
background-color: #CCFF66;
z-index: 105;
}
")),
conditionalPanel(condition="$('html').hasClass('shiny-busy')",
tags$div("Loading...",id="loadmessage")),
sidebarLayout( …您好，我有一个问题，即如何总结每一种可能的行组合。
考虑我有矩阵：
M<-replicate(5, rnorm(10))
现在我想要一个通用的解决方案来将colSums向量保存在所有可能的行组合的列表或数据框中：例如一些例子：
第 1 行 + 第 2 行的列
第 1 行 + 第 3 行的 colsum ..
第 2 行 + 第 3 行
第 2 行 + 第 4 行 ..
第 1 行 + 第 2 行 + 第 3 行 ..
第 4 行 + 第 7 行 + 第 10 行 ...
第1行+第2行+第3行+第4行+第5行+第6行+第7行+第8行+第9行+第10行
有谁知道解决方案？非常感谢