ambhtmx_app to ambhtmx

Dockerfile

@@ -41,7 +41,9 @@ RUN install2.r --error -s --deps TRUE htmltools tibble dplyr purrr rlang glue th
 RUN Rscript -e "install.packages('b64', repos = c('https://extendr.r-universe.dev', getOption('repos')))" 
 RUN Rscript -e "install.packages('uwu', repos = c('https://josiahparry.r-universe.dev', getOption('repos')))" 
 RUN --mount=type=secret,id=GITHUB_PAT GITHUB_PAT=$(cat /run/secrets/GITHUB_PAT) \
-    installGithub.r jrosell/ambhtmx devOpifex/ambiorix devOpifex/scilis devOpifex/signaculum
+    installGithub.r devOpifex/ambiorix devOpifex/scilis devOpifex/signaculum
+RUN --mount=type=secret,id=GITHUB_PAT GITHUB_PAT=$(cat /run/secrets/GITHUB_PAT) \
+    installGithub.r jrosell/ambhtmx
 
 # Prepare the user
 ENV HOME=/workspace \

README.md

@@ -42,10 +42,9 @@ For example, you can adapt this for your gh and hf repos:
 git init
 git add -A
 git commit -m "My changes"
-git remote add origin [email protected]:jrosell/ambhmtx.card3d.git
-git remote add gh [email protected]:jrosell/ambhmtx.card3d.git
+git remote add origin [email protected]:jrosell/ambhtmx.card3d.git
+git remote add gh [email protected]:jrosell/ambhtmx.card3d.git
 git remote add hf [email protected]:spaces/jrosell/ambhtmx.card3d
-git remote set-url --add --push origin [email protected]:jrosell/ambhtmx.card3d.git
 git push --set-upstream gh main
 git push --set-upstream hf main
 ```
@@ -78,3 +77,4 @@ docker build -f Dockerfile  --no-cache --progress=plain -t ambhtmx-card3d-image
 ```
 
 Check the [known issues](https://github.com/jrosell/ambhtmx/issues), and if you have another issue? Please, [let me know](https://github.com/jrosell/ambhtmx/issues).
+

app.R

@@ -4,8 +4,7 @@ library(ambhtmx)
 
 card_3d_demo <- \() {  
   card <- "card"
-  tryCatch(
-    expr = {
+  tryCatch({
       # Original python code credit: https://fastht.ml/
       # Design credit: https://codepen.io/markmiro/pen/wbqMPa
       bgurl <- "https://ucarecdn.com/35a0e8a7-fcc5-48af-8a3f-70bb96ff5c48/-/preview/750x1000/"
@@ -25,10 +24,8 @@ card_3d_demo <- \() {
   div(card, style = card_styles)
 }
 
-app <- ambhtmx_app(host = "0.0.0.0", port = "7860", protocol ="http")$app
-
-app$get("/", \(req, res) {
-  card_3d_demo() |> send_page(res)
-})
-
-app$start()
+ambhtmx(host = "0.0.0.0", port = "7860", protocol ="http")$app$
+  get("/", \(req, res) {
+    card_3d_demo() |> send_page(res)
+  })$
+  start()