Nothing
source("global.R")
share <- list(
title = "Lights Out",
url = "https://daattali.com/shiny/lightsout/",
image = "https://daattali.com/shiny/img/lightsout.png",
description = "Play the classic Lights Out puzzle game in R",
twitter_user = "daattali"
)
fluidPage(
title = "Lights Out / Dean Attali",
shinyjs::useShinyjs(),
tags$head(
tags$link(href = "style.css", rel = "stylesheet"),
# Favicon
tags$link(rel = "shortcut icon", type="image/x-icon", href="favicon.ico"),
# Facebook OpenGraph tags
tags$meta(property = "og:title", content = share$title),
tags$meta(property = "og:type", content = "website"),
tags$meta(property = "og:url", content = share$url),
tags$meta(property = "og:image", content = share$image),
tags$meta(property = "og:description", content = share$description),
# Twitter summary cards
tags$meta(name = "twitter:card", content = "summary"),
tags$meta(name = "twitter:site", content = paste0("@", share$twitter_user)),
tags$meta(name = "twitter:creator", content = paste0("@", share$twitter_user)),
tags$meta(name = "twitter:title", content = share$title),
tags$meta(name = "twitter:description", content = share$description),
tags$meta(name = "twitter:image", content = share$image)
),
tags$a(
href="https://github.com/daattali/lightsout",
tags$img(style="position: absolute; top: 0; right: 0; border: 0;",
src="github-orange-right.png",
alt="Fork me on GitHub")
),
div(id = "header",
div(id = "title",
"Lights Out"
),
div(id = "subsubtitle",
"Created by",
tags$a(href = "https://deanattali.com/", "Dean Attali"),
HTML("•"),
"Package available",
tags$a(href = "https://github.com/daattali/lightsout", "on GitHub"),
HTML("•"),
tags$a(href = "https://daattali.com/shiny/", "More apps"), "by Dean"
)
),
fluidRow(
column(4, wellPanel(
id = "leftPanel",
selectInput("boardSize", "Board size",
unlist(lapply(allowed_sizes,
function(n) setNames(n, paste0(n, "x", n))))),
selectInput("mode", "Game mode",
c("Classic" = "classic",
"Variant" = "variant")),
actionButton("newgame", "New Game", class = "btn-lg"),
hr(),
p("Lights Out is a puzzle game consisting of a grid of lights that",
"are either", em("on"), "(light green) or", em("off"), "(dark green). In", em("classic"), "mode, pressing any light will toggle",
"it and its adjacent lights. In", em("variant"), "mode, pressing a light will toggle all the lights in its",
"row and column. The goal of the game is to", strong("switch all the lights off."))
)),
column(8,
hidden(div(id = "congrats", "Good job, you won!")),
uiOutput("board"),
br(),
actionButton("solve", "Show solution")
)
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.