小编Typ*_*ter的帖子

在此示例之后，有人可以告诉我是否可能以及如何更改包中pickerInputUI下拉菜单中项目的字体颜色shinyWidgets？

这是小部件的一个简短示例：

library("shiny")
library("shinyWidgets")

shinyApp(
  ui = 
    shinyUI(fluidPage(
      sidebarLayout(
        sidebarPanel(
          pickerInput("select", label=NULL,
                      choices=LETTERS,
                      selected = LETTERS,
                      multiple=TRUE, 
                      options = list(
                        `actions-box` = TRUE,
                        size = 10,
                        `selected-text-format` = "count > 3"
                      ))
          ),
        mainPanel())
    )
    ),
  server = function(input, output){}
)

> sessionInfo()
R version 4.0.0 (2020-04-24)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS High Sierra 10.13.6

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8

attached base packages:
[1] stats4    parallel  stats     graphics  grDevices …

我正在尝试创建一个仅将文本添加到 mainPanel 的应用程序。但是，添加文本时文本输出非常慢。

我想让这一切变得即时而快速，而不是花费太多时间。有没有办法让它在浏览器中处理而不是去R？

代码

library(shiny)

ui <- fluidPage(sidebarLayout(
  sidebarPanel(textInput("text", label = NULL)),
  mainPanel(textOutput("textout"))
))


server <- function(input, output, session) {
  
  output$textout <- renderText({
    input$text
  })
}

shinyApp(ui, server)

我正在尝试找到一种方法来禁用最近生成的输出的反应性，但启用当前正在渲染的输出的反应性。

在此示例中，我单击New开始新绘图并选择输入。然后，我New再次单击，这将在第一个图下方创建一个新图。但是，当我更改输入时，所有输出图都会发生变化。我只想改变当前的新情节。

为了解决这个问题，我想单击New禁用旧图的反应性但保持当前新图的反应性的按钮。

library(dplyr)
library(rlang)
library(ggplot2)

scatter_plot <- function(dataset, xvar, yvar) {
  
  x <- rlang::sym(xvar)
  y <- rlang::sym(yvar)
  
  p <- ggplot(dataset, aes(x = !!x, y = !!y)) +
    geom_point() +
    theme(axis.title = element_text(size = rel(1.2)),
          axis.text = element_text(size = rel(1.1)))
  
  return(p)
  
}


regress <- function(dataset, xvar, yvar) {
  
  # lefts <- rlang::sym(xvar)
  # rights <- rlang::sym(yvar)
  
  lefts <- xvar
  rights <- yvar
  
  lefts <- paste(lefts, " ~ ")
  rights <- paste(rights, collapse = " …

我正在尝试上传数据，然后从上传的数据中选择变量以生成散点图。

1. 导入模块：从csv文件导入数据并显示预览表
2. 选择模块：从导入的数据集中选择变量
3. 散点图模块：根据选定的变量生成散点图。

我所关心的问题

1. 在右侧模块中找到导入的数据。
2. 使用 csv 文件中的变量更新 selectInput 选项
3. 以正确的方式连接模块

为了解决这个问题，我觉得我必须添加一个observe地方并将其连接到其他模块。像这样的东西observe({updateSelectInput(session, "var1", choices = names(dtreact()))})

现在应用程序无法运行并输出以下错误：Error in varselect_ui("select") : object 'dtreact' not found

这是示例.csv 文件的链接

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



scatter_plot <- function(dataset, xvar, yvar) {
  
  x <- rlang::sym(xvar)
  y <- rlang::sym(yvar)
  
  p <- ggplot(dataset, aes(x = !!x, y = !!y)) +
    geom_point() +
    theme(axis.title = element_text(size = rel(1.2)),
          axis.text = element_text(size = rel(1.1)))
  
  return(p)
  
}

importUI <- function(id) {
  ns <- NS(id)
  
  tagList( …

我试图创建管友好的功能使用magrittr

例如，我尝试编写一个自定义函数来计算列的平均值：

library(magrittr)
custom_function <-
  function(.data, x) {
   mean(.data$x)
  }

mtcars %>%
 custom_function(mpg)

但我收到此错误：

Error in (function(x, i, exact) if (is.matrix(i)) as.matrix(x)[[i]] else .subset2(x,  : 
  object 'mpg' not found

也许我对变量的引用不起作用。我该如何解决这个问题.data$x？