library(tidyverse) dataset_a <- read.csv(file = \'.\\\\growth_rate.csv\') View(dataset_a) ui <- fluidPage( tabsetPanel( tabPanel("plot", flu