R Studio - Разработка приложений с пакетом Shiny - застревание при прослушивании порта - PullRequest
Новая
       7

R Studio - Разработка приложений с пакетом Shiny - застревание при прослушивании порта

0 голосов
/ 03 сентября 2018

Приветствую всех ...!

У меня проблема с дизайном приложения Shiny в Rstudio.

Ниже приведен код: 

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = “Basic Dashboard”, 
dropdownMenuOutput("MessageMenu")),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dash 
board")), 
      menuItem("Widgets", tabName = "widgets", icon = icon("th"))
           )
              ),
  dashboardBody(
    tabItems(# First tab content 
      tabItem(tabName = "dashboard", fluidRow(box(plotOutput("plot1", height 
= 250)), box(title = "Controls",
  sliderInput("slider", "Number of observations:", 1,100,50)))), 
        #Second tab content
  tabItem(tabName = "widgets", h2("Widgets tab content"))))
server <- function(input, output) {
set.seed(123)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
 })
}
shinyApp(ui, server)

С вышеуказанным кодом я сохранил файл. Когда я открываю этот r файл для запуска приложения, выдается ошибка: Ошибка при разборе (file, keep.source = FALSE, srcfile = src, encoding = enc): C: /Users/velumani_d/Documents/sankar/shiny/Dashboard.R: 18: 3: неожиданный символ 17:
18: сервер ^ Возможная пропущенная запятая по адресу: 18: сервер <- функция (вход, выход) { ^ Ошибка в sourceUTF8 (полный путь, envir = new.env (parent = globalenv ())): Источник ошибок: C: \ Users \ VELUMA ~ 1 \ AppData \ Local \ Temp \ RtmpGCsHzx \ filee181233354 </strong>

Я не могу понять, почему эта ошибка возникает при повторном запуске сохраненного R-файла. введите описание изображения здесь Большое спасибо.

...