将 Shiny 合并到 Flexdashboard 中，以最少的 shiny 代码进行动态文本输入

Question

I have built a static Flexdashboard with 10+ tabs and multiple plots in each tab.

I set a variable as a search key for each evaluated individual to knit the entire dashboard.

For example

library(flexdashboard)
library(tidyverse)
library(plotly)
library(DT)
library(cowplot)
library(lubridate)

df <- read_csv("Database.csv")
name <- regex(pattern="Smith") 

I just need to change the name "Smith" to "Virk" if I want to knit an evaluation for a person named Virk, without having to entire the whole name. It also pulls from a few other csv that may not have the entire name, hence the last name with the first letter being uppercase is the best solution for now. I don't have 2 of the same unique name for now, thank goodness.

My other tabs/plots have a generic filter using

df_radar <- cccdb %>%
  filter(str_detect(Name,name))

I have over 50+ plots and datatables using this filter system. Each html file (each evaluated individual) is about 6mb in size.

I am wondering if there is an easier way to use Shiny's textInput for dynamic change of variable "name" and renderPlot{} on my plots and datatables without having to change my entire dashboard code. For example:

library(flexdashboard)
library(tidyverse)
library(plotly)
library(DT)
library(cowplot)
library(lubridate)
library(shiny)

df <- read_csv("Database.csv")

#Replacement of "name" variable
textInput("Name", "name:")

#one of the plot
renderPlot({
name <- regex(pattern = input$Name)
df_radar <- cccdb %>%
  filter(str_detect(Name,name) %>%
ggplot(.,
aes(x=Productivity)) +
geom_bar()

df_radar

})

I was able to do that. However, the problem is, I'd have to repeat this:

name <- regex(pattern = input$Name)

for all 50+ renderPlots and renderDataTable. I was wondering if there is a simpler way. Thank you for your help!

Answer 1

Sorry, I just learnt the reactive function of shiny. I was able to answer my own question. The solution I had come up with is

# Replacement of name variable
textInput("name", "Name:")

# using shiny reactive
name <- reactive({
namer <- regex(pattern = input$name)
namer
})

#one of the plot
plotOutput("plot")

output$plot <- renderPlot({
df_radar <- cccdb %>%
  filter(str_detect(Name,name())) %>%
ggplot(.,
aes(x=Productivity)) +
geom_bar()

df_radar

})

For the rest of the name variable, I just need to replace them with name()