Shiny - это пакет R, который позволяет легко создавать интерактивные веб-приложения, используя только R.

Подробнее про shiny...

Я создал приложение в блестящем содержании, связь между модулями которого не работает должным образом. Краткое описание моего приложения: Мое приложение имеет два selectInputs. Он обновляет второй selectInput в зависимости от первого selectInput, а затем строит график и таблицу для данных df. Я х...
26 Ноя 2022 в 09:47
Простая вещь, но есть ли способ поделиться объектами из одного фрагмента (здесь: data-chunk) с кодом сервера (здесь: server-chunk)? Я получаю сообщение об ошибке, что server-chunk не может получить доступ к faithful2: Ошибка: объект «faithful2» не найден --- title: "Untitled" format: html server: s...
26 Ноя 2022 в 00:33
У меня есть это упрощенное приложение: library(shiny) library(shinyWidgets) library(shinyscreenshot) library(capture) my_ids <- LETTERS[1:13] ui <- fluidPage( #background image tags$img( src = "http://upload.wikimedia.org/wikipedia/commons/5/5d/AaronEckhart10TIFF.jpg", style = 'positi...
25 Ноя 2022 в 22:19
Я хотел бы знать, как я могу полностью пропустить раздел заголовка из заголовка ShinyDashboard. Таким образом, первым видимым объектом будет кнопка-переключатель, которая скрывает и отображает боковую панель. Теперь, если я установлю для titlewidth значение 0, между кнопкой переключения и началом ...
25 Ноя 2022 в 17:53
Я хочу применить цвет к отдельному selectInput, включая выбранный элемент и варианты раскрывающегося списка. Я попробовал приведенный ниже код на основе чтения других сообщений, и он дает желаемый эффект, но применяет цвет ко всем selectInputs. Как мне применить цвет к определенному selectInput? r...
25 Ноя 2022 в 15:54
В моем приложении есть два selectInputs. Он обновляет второй selectInput в зависимости от первого selectInput, а затем строит временную шкалу для данных df. Приложение работает очень хорошо, но когда я пытаюсь разбить его на модули, оно не работает должным образом (работают только selectInputs, но...
25 Ноя 2022 в 14:45
В блестящем я пытаюсь одновременно наблюдать за двумя событиями. Одним из них является передаваемый параметр URL. Во-вторых, когда я нажимаю кнопку «Выполнить», я вывожу CSV. Первая часть работает нормально и может быть проверена добавлением /?param=some_text. Однако, когда я нажимаю кнопку «Выпо...
25 Ноя 2022 в 07:09
Я пробовал много способов, но я не могу найти решение. Я сделал приложение, для которого некоторые расчеты производятся в соответствии с другим числом, выбранным с помощью функции выбора DT. В этом приложении можно загрузить своего рода резервную копию, которая восстанавливает положение вещей. Не...
25 Ноя 2022 в 02:09
Скажем, общий код функции проверки блестящего R: ## Only run examples in interactive R sessions if (interactive()) { ui <- fluidPage( checkboxGroupInput('in1', 'Check some letters', choices = head(LETTERS)), selectizeInput('in2', 'Select a state', choices = state.name), plotOutput('plot') ) ...
24 Ноя 2022 в 23:01
Я пытаюсь создать блестящее приложение с reset, которое сбрасывает фильтры на настройки по умолчанию. Цель состоит в том, что когда пользователь нажимает reset, возникает задержка в 300 миллисекунд, а затем автоматически нажимается кнопка apply, в других случаях для сброса фильтров. Прямо сейчас к...
24 Ноя 2022 в 22:08
При воспроизведении звука я хотел бы иметь возможность остановить его с помощью другой кнопки. Или при повторном нажатии на кнопку воспроизведения воспроизведение звука должно останавливаться, а затем воспроизводиться сначала. Я изо всех сил пытался реализовать это в R Shiny с помощьюshinyjs, но бе...
24 Ноя 2022 в 21:53
Я новичок в Rshiny, и у меня возникают проблемы с отображением результатов в цикле for, где все итерации добавляются в один и тот же фрейм данных. Приведенный ниже минимальный пример отлично работает в R Desktop: df_total = data.frame() for (i in 1:7){ # vector output model <- i + 10 #...
24 Ноя 2022 в 13:01
У меня есть этот минимальный пример, адаптированный отсюда R блестящая кнопка радиогруппы изменить цвет а>: library(shiny) ui = fluidPage( radioGroupButtons( # status = "primary ", ## you can change status value to change to select few colors inputId = "a", checkIcon = list...
24 Ноя 2022 в 12:50
У меня есть этот минимальный пример: library(shiny) ui <- fluidPage( tags$style("#a {font-size:30px;height:30px;}"), tags$style("#b {font-size:30px;height:30px;}"), tags$style("#c {font-size:30px;height:30px;}"), tags$style("#a1 {font-size:30px;height:30px;}"), tags$style("#b1 {font-size...
24 Ноя 2022 в 11:07
В приложении shiny ниже я использую plotly_click_event на одной из трех линейных диаграмм, чтобы выбрать точку, а затем подмножить две другие линейные диаграммы на основе этой точки. Затем я сбрасываю с помощью кнопки RESET. Что я хотел бы улучшить, так это иметь возможность выбирать более одной т...
24 Ноя 2022 в 04:57
В следующем блестящем приложении я встроил функции annual и monthly в строке 7-15 в заполнитель selectizeInput в строке 22. library(shiny) library(shinydashboard) library(tidyquant) library(tidyverse) library(plotly) annual <- function(x){ (x/lag(x, 12) - 1)*100 } monthly <- function(x){ (x...
24 Ноя 2022 в 02:03
У меня есть это примерное приложение: library(shiny) ui <- fluidPage( textInput("a", "A", width = 20), textInput("b", "B", width = 20), tags$img( src = "https://posit.co/wp-content/uploads/2022/10/09_HOMEPAGE.svg", style = 'position: absolute' ) ) server <- function(input, output, ses...
23 Ноя 2022 в 22:36
Я пытаюсь добавить функции в держатель selectizeInput на моей панели ShinyDashboard, чтобы использовать их в интерактивном режиме в моем фрейме данных. Есть ли способ отображать имя для каждой функции (например, ежемесячно и ежегодно) вместо того, чтобы распечатывать саму функцию? ibrary(shiny) lib...
23 Ноя 2022 в 22:33
В моем приложении Shiny я хочу включить selectInput в таблицу данных DT и разрешить выбор нескольких параметров. Это нормально отображается с multiple = F, но с multiple = T выделение не отображается или не работает должным образом. См. пример ниже. Когда «Несколько» не выбрано, selectInput отлич...
23 Ноя 2022 в 22:01
Есть ли способ отображать текст в блестящем приложении через ggplotly()? Я хочу передать некоторые функции, которые требуют ggplotly() позже, и я хотел бы знать, возможно ли это. library(plotly) library(shiny) ui <- shinyUI(fluidPage( titlePanel("HTML"), sidebarLayout( sidebarPa...
23 Ноя 2022 в 19:20
У меня есть следующий код для создания приложения Shinydashboard. Я пытаюсь изменить цвет фона в поле в верхней части экрана на пользовательский цвет (цвет шестнадцатеричного кода), однако параметры аргумента background допускают только набор цветов по умолчанию. Есть ли способ изменить цвет фона ...
23 Ноя 2022 в 18:59
Я изо всех сил пытаюсь заставить код работать для этого виджета журнала, который я хочу добавить в свой интерактивный сюжет в блестящем виде. Я могу изменить оси графиков x и y в логарифмическом масштабе, добавив log(dat()[[input$yvrbl]]) в кодировщик сервера server <- function(input, output) { x...
23 Ноя 2022 в 18:58
У меня есть набор имен детей, ранжированных по популярности за каждый год. Что у меня сейчас есть: простое блестящее приложение, которое фильтрует по году на основе ползунка и кнопки выбора, которая определяет, какой столбец является столбцом ранга для использования (который также создает цветовую п...
23 Ноя 2022 в 18:35
Я использую plotly для создания интерактивной круговой диаграммы для блестящего приложения. Исходные данные сопоставимы с данными о продажах. Каждое наблюдение соответствует продаже продукта. Затем круговая диаграмма суммирует продажи по категориям продуктов. Я ищу способ назначить цвет (градиент...
23 Ноя 2022 в 15:18
Ниже я вставляю код своего блестящего приложения. В этой версии он имеет 2 вкладки. В реальной жизни они будут заполнены различными визуализациями и пояснительными комментариями, основанными на различных представляющих интерес переменных. Я хочу использовать conditionalPanel() для создания двух вер...
23 Ноя 2022 в 12:44