标签: shinyapps

我正在使用文档https://shiny.rstudio.com/tutorial/writing-tutorial/lesson2/，更准确地说，使用以下代码向我的闪亮页面添加一个简单的段落：

ui <- fluidPage(
  titlePanel("My Shiny App"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      p("p creates a paragraph of text."),
      p("A new p() command starts a new paragraph. Supply a style attribute to change the format of the entire paragraph.", style = "font-family: 'times'; font-si16pt"),
      strong("strong() makes bold text."),
      em("em() creates italicized (i.e, emphasized) text."),
      br(),
      code("code displays your text similar to computer code"),
      div("div creates segments of text with a similar style. This division of text is all blue because I …

我有一些闪亮的应用程序，我想执行并使其成为独立的应用程序（如果它可以通过 chrome 打开，那就太棒了）。我无法将应用程序上传到网络，我希望没有 R studio 或 R 的同事也能使用此应用程序。由于安全公司的原因 - 除了 R 软件包之外，我无法下载任何软件。我在这里看到了一些解决方案，但它们都包含任何软件下载。

部署我的第一个闪亮的应用程序 - 简单的html解析器,让用户上传一个html文件,然后解析它以获取LinkedIn上的分享/提及/喜欢的信息.

该应用程序在本地运行良好(在部署之前进行测试),Rstudio在部署时不会显示任何错误.但是,当我使用shinyapps链接运行它时,似乎上传无法完成,我没有得到任何输出.

它在当地的样子

打开应用程序

正在上传.html文件

在shinyapps.io看起来像什么

我已经编辑了文件名,因为它包含识别信息.

代码如下:

library(rvest)
library(shiny)
ui <- fluidPage(
  # theme = "https://bootswatch.com/4/superhero/bootstrap.css",
  title = "LinkedIn Report",

  fluidRow(
    column(12,
           fileInput("infile", "Choose .html file", 
              accept = "text/html", multiple = F) )
  ),

  fluidRow(
    column(12,
           tableOutput("savedLocation") )
  ), 

  fluidRow(
    column(12,
           tableOutput("parsedData") ),
    column(8, 
           downloadButton("downloadData", "Download"))
  )

)


server <- function(input, output){
  dd <- reactive(input$infile)

  output$savedLocation <- renderTable({
    if(is.null(input$infile)){
      return(data.frame(Elapsed = character(), 
                        Time = character(),
                        Name = character(), 
                        Action = character()))
    }else{
      return(dd())
    }
  })

  actual_data <- …

当我刚刚编写一个在本地完美运行的应用程序时，但是当我尝试在线部署它时，我不断收到此错误：

错误信息：

准备部署应用程序...完成正在上传应用程序包：1969928...curl::curl_fetch_memory(url, handle = handle) 中出现错误：已达到超时：[api.shinyapps.io] 操作在 10000 毫秒后超时，值为 0收到 0 个字节调用：... tryCatch -> tryCatchList -> tryCatchOne -> 计时停止于：0 0 10

我的闪亮版本：1.4.0.2；操作系统：Windows10；集成开发环境：RStudio；

如果您能提供帮助，非常感谢！

我的完整代码：

library(shiny)
library(DT)
library(readr)

######################### read data #########################
pump1 <- read_csv("data/1.csv", col_names=TRUE)
pump2 <- read_csv("data/2.csv", col_names=TRUE)
pump3 <- read_csv("data/3.csv", col_names=TRUE)
pump4 <- read_csv("data/4.csv", col_names=TRUE)
pump5 <- read_csv("data/5.csv", col_names=TRUE)
pump6 <- read_csv("data/6.csv", col_names=TRUE)
# pump7 does not have instantFlow feature
pump7 <- read_csv("data/7.csv", col_names=TRUE)

colnames(pump1) <- c("Date", "backT", "frontT", "moduleT", "I", "V", "instantFlow", "openDegree", "vacuumDegree")
colnames(pump2) <- …

我已经构建了一个闪亮的网络应用程序，我想与我的同事分享。

我使用的其中runApp(host = getOption("shiny.host", "10.161.112.8"))10.161.112.8 是我的主机服务器 IP 地址。

该应用程序在我的本地服务器上完美运行，但某些远程客户端（不是全部！）直接显示灰屏（或最多 1 秒后）。在检查他们的网页源代码时，我收到以下错误：

Uncaught TypeError: Cannot read property 'readyState' of null
    at ShinyApp.$sendMsg (shinyapp.js:288)
    at ShinyApp.sendInput (shinyapp.js:140)
    at InputBatchSender.$sendNow (input_rate.js:220)

Run Code Online (Sandbox Code Playgroud)

我在这里红色它可能与网络套接字限制有关。但我没有找到任何适合我的解决方案......

有人有什么建议吗？任何帮助将非常感激！

我正在使用从 S3 获取的数据将应用程序部署到 Shinyapps.io，我想确保我的 AWS 密钥是安全的。目前在 app.R 代码中，我正在设置环境变量，然后查询 S3 以获取数据。

有没有办法创建一个隐藏密钥的文件并将其与我的 app.R 文件一起部署到 ShinyApss

Sys.setenv("AWS_ACCESS_KEY_ID" = "XXXXXXXX",
           "AWS_SECRET_ACCESS_KEY" = "XXXXXXXXX",
           "AWS_DEFAULT_REGION" = "us-east-2")


inventory =aws.s3::s3read_using(read.csv, object = "s3://bucket/file.csv")

我还要补充一点，我使用的是免费计划，因此用户身份验证不可用，否则我不会为我的密钥可见而大惊小怪。

应用程序结构

我有一个闪亮的应用程序，具有典型的侧边栏面板+主面板结构。

• 侧边栏面板：侧边栏面板中有多个 selectInput 小部件，其中每个 selectInput 中的选择取决于前一个 selectInput 的选定值。（即，用户从 selectInput 1 中选择一个数据集，从 selectInput 2 中选择一个变量，其中 selectInput #2 中可用作“选项”的变量取决于输入 1 的选择）
• 主面板：有一个基本的 ggplot2 可视化，它取决于侧边栏面板中所做的 2 个输入选择（数据集和变量）。

问题

当用户在 selectInput #1 中选择新数据集时，selectInput #2（可用变量）和绘图都需要更新。我希望首先更新 selectInput #2，然后更新绘图。然而，似乎情节总是在第二个 selectInput 有机会更新之前继续更新。这会导致绘图尝试渲染无效绘图 - 即尝试使用 iris 数据集渲染 mtcars 变量的绘图，反之亦然。

有没有办法优先考虑 selectInput #2 的反应式更新发生在renderPlot 的反应式更新之前？

笔记

• 作为用户体验要求，我避免使用按钮来渲染绘图。我需要绘图根据选择实时动态更新。
• 在我的 reprex 中，我包含了打印语句来描述绘图如何尝试使用无效的选择组合进行更新。

library(shiny)
library(ggplot2)
library(dplyr)

# Define UI for application that draws a histogram
ui <- fluidPage(

    titlePanel("Reactivity Test"),

    # Sidebar with two input widgets
    sidebarLayout(
        sidebarPanel(
            selectInput(inputId …

我正在尝试将一个闪亮的应用程序部署到shinyapps.io服务器，但不断收到与托管在我们组织拥有的私人github存储库中的自定义构建包相关的错误（请注意，我已经替换了下面错误中的包、公司名称和私有仓库名称）：

error: Building package: [PACKAGE NAME]
################################ Begin Task Log 
################################ 
################################# End Task Log 
################################# 
Error: Unhandled Exception: Child Task 530176316 failed: Error building 
image: Error fetching [PACKAGE NAME] (1.0.2) source. Error accessing GitHub 
repository ORGANIZATION/PRIVATE_REPO. HTTP 404: Not Found

我知道存储库链接很好，因为通过安装devtools::install_github("ORGANIZATION/PRIVATE_REPO, auth_token = token可以。我是组织页面的管理员，并确保该页面token具有 repo 和 admin:org 范围。

我还确保在我的shinyapps.io帐户页面中勾选“私人存储库访问”，如此处所述。

有人对我可能做错了什么有任何想法吗？

谢谢！

与此相关的额外信息：https ://shiny.rstudio.com/articles/scaling-and-tuning.html

我正在尝试为我的 Shiny 应用程序确定最佳的工作线程和实例设置，以使用户体验尽可能流畅。大多数情况下，应用程序上的流量很少，但有时流量会异常高，例如当它向大量受众展示时（可能超过 100 个用户？）。

首先，基于个人经验以及这个SO问题。，我将“最大连接数”（每个 R 工作进程允许的并发连接数）设置为 1。这将避免共享同一 R 工作进程的连接之间出现一些奇怪的“交互”。

我有shinyapps.io的专业订阅，这意味着每个应用程序最多有10个实例。在应用程序的设置中，我可以调整多个值，以确定何时启动新实例、何时添加或共享新工作人员等。

考虑两种情况：

1. 我对其进行了设置，以便有尽可能多的实例，并且其他工作人员会在出现时填写。如果每个实例最多有 10 个工作线程，则前 10 个连接将各自启动自己的实例，第 11 个连接最终将使用新工作线程加入其中一个实例。

2. 我将其设置为尽可能少的实例，添加工作人员直到需要新实例为止。如果每个实例最多 10 个工作线程，则第一个连接将启动该实例，接下来的 9 个连接将启动该实例中的工作线程，第 11 个连接将启动一个新实例和工作线程。

使用这两种方法的优点和缺点是什么？

能提高性能吗？它们是一样的吗？

实例上有更多工作人员是否会降低计算速度？

谢谢！

我有一个基本的 RShiny 应用程序，它有一个反应式复选框，它根据复选框中选择的数据（df 列）绘制时间序列数据。我当前的代码生成一个带有复选框输入的 UI，如下所示：

    # Load R packages
library(shiny)
library(shinyBS)

##example df in similar format to the data I'm working with
Both <- data.frame(
  Year  = c("1990", "1991", "1992", "1993"),
  SST_anomaly_GOM = c("-1.1", "0.23", "0.87", "-0.09"),
  SST_anomaly_GB = c("-1.1", "0.23", "0.87", "-0.09"),
  SST_anomaly_MAB = c("-1.1", "0.23", "0.87", "-0.09"),
  BT_anomaly_GOM = c("-2.5", "0.55", "1.20", "-0.19"),
  BT_anomaly_GB = c("-1.1", "0.05", "1.24", "-0.29"),
  BT_anomaly_MAB = c("-1.1", "-1.08", "0.67", "-2.40")
)

# Define UI
ui <- fluidPage(
  # useShinyBS
    "Visualizing Indicators", #app title …