Pertimbangkan aplikasi berikut:

library(shiny)
library(shinydashboard)
library(shinyWidgets)

tab_example <-
  tabItem(tabName = "example",
          fluidRow(
            column(6,
                   h4("example"),
                   includeHTML("example.html")
            )
          )
  )

body <-
  dashboardBody(
    tabItems(
      tab_example
    )
  )

sidebar <-
  dashboardSidebar(
    sidebarMenu(
      menuItem("Example", tabName = "example", icon = icon("bullseye"))
    )
  )

ui <-
  dashboardPage(
    dashboardHeader(title = "EXAMPLE"),
    sidebar,
    body
  )

server <- function(input, output) {


}

shinyApp(ui = ui, server = server)

Dimana example.html:

<p>My first paragraph.</p>

Ini berjalan sebagaimana mestinya, tetapi ketika menjalankan contoh yang lebih canggih dengan struktur folder gagal untuk menguraikan.

Struktur Folder:

├── example
│   └── example.html
├── dashboard.R
├── ui_elements
│   └── sidebar.R
│   └── body.R
│   └── tabs
│    └── tab_example.R

tab_example.R:

source("example/example.html")

tab_example <-
  tabItem(tabName = "example",
          fluidRow(
            column(6,
                   includeHTML("example.html")
            )
          )
  )

Pesan kesalahannya adalah:

 Error in source("example/example.html") : 
  example/example.html:1:1: unexpected '<'
1: <

Apakah ada sesuatu yang perlu saya lakukan dalam panggilan source("example/example.html")?

0
Phillip Black 20 November 2020, 15:03

1 menjawab

Jawaban Terbaik

Melihat bantuan dari source, tajuknya mengatakan:

Baca Kode R dari File, Koneksi, atau Ekspresi

Namun, Anda mencoba membaca file HTML, oleh karena itu gagal. Anda bisa menentukan jalur yang benar di includeHTML:

includeHTML("example/example.html")

Dan tidak perlu menggunakan source

0
starja 20 November 2020, 12:11