beatrina 0.9.43 → 1.0.0

package/kernel/knitr-run.R

@@ -71,7 +71,14 @@ run_document_cell <- function(id, source, document, dims = NULL, srcname = NULL)
         if (identical(frame$type, "stdout") && !is.null(options$comment) && nzchar(options$comment)) {
           frame$text <- paste0(options$comment, " ", strsplit(frame$text, "\n", fixed = TRUE)[[1L]], collapse = "\n")
         }
-        if (identical(frame$type, "plot") && save_figures) {
+        # A figure FILE is written only when the author asked for one by
+        # setting fig.path (a chunk option or the setup chunk's opts_chunk).
+        # knitr's own default, "figure/", is not a request: every plot of an
+        # ordinary run used to land as figure/<label>-1.png in the working
+        # directory, a folder nobody made (FINDINGS 2026-09-22 B17). The
+        # plot itself travels in the frame either way; nothing reads the file.
+        wants_file <- !identical(options$fig.path, KNIT_BASE$fig.path)
+        if (identical(frame$type, "plot") && save_figures && wants_file) {
           plot_n <<- plot_n + 1L
           suffix <- if (identical(frame$mime, "image/svg+xml")) ".svg" else ".png"
           target <- paste0(options$fig.path, options$label, "-", plot_n, suffix)

package/kernel/mcp/beatrina-mcp.mjs

@@ -437,11 +437,12 @@ const TOOLS = [
     description:
       "Run one chunk in the user's live session (its own engine: R, or Python where the session runs it) and return its output "
       + "(stdout, messages, errors, table/plot summaries). The run is visible "
-      + "in the notebook exactly as if the user pressed Run. REFUSED while the "
-      + "document is in Writing mode — R is quiet there and nothing runs, not "
-      + "even for an agent; the error says so. Do not retry: ask the user to "
-      + "switch the document to Develop. Reading (notebook_read, chunk_read) and "
-      + "authoring (chunk_insert, chunk_update) still work in Writing mode. "
+      + "in the notebook exactly as if the user pressed Run. If the document is in "
+      + "Writing mode the run first switches it to Develop — visibly, exactly as "
+      + "pressing the Develop segment — and the reply says so (`modeChanged: "
+      + "\"writing→development\"`); only when the page refuses that switch is the "
+      + "run refused, and the error says to ask the user. Reading (notebook_read, "
+      + "chunk_read) and authoring (chunk_insert, chunk_update) never change the mode. "
       + "A chunk with cache=TRUE and an unchanged source is RESTORED from knitr's "
       + "cache, not executed — the reply says so (`cached: true`) and none of the "
       + "chunk's side effects (setwd(), files written, seeds) happen; pass `force` "

package/kernel/worker.R

@@ -166,6 +166,13 @@ MAX_VIEW_COLS <- 100L
 MAX_VIEW_BYTES <- 512L * 1024L
 MAX_VIEW_CELL_CHARS <- 512L
 MAX_VIEW_LABEL_CHARS <- 128L
+# The viewer's page size, the same number as lib/panel.js's PAGE (pinned by
+# spike/test-ide.R). View() pushes its first page unasked, and it
+# used to take the `view` op's protocol default of 200, so the grid opened on
+# "1–200 of N" and every page it asked for itself — next, search, clear — was
+# 50 (N11, app-monkey soak 2026-09-22). The protocol default stays 200 for
+# clients that name no limit; the push names the viewer's.
+VIEWER_PAGE_ROWS <- 50L
 MAX_STRUCT_CHILDREN <- 200L
 MAX_COMPLETIONS <- 200L
 
@@ -2680,6 +2687,14 @@ emit_dataframe <- function(id, df, source = NULL) {
   # R whether names are automatic without materialising them; explicit names
   # are sliced from the raw attribute only AFTER the 10-row preview is taken.
   explicit_rownames <- .row_names_info(df, type = 1L) > 0L
+  # head(df) and df[1:n, ] store their row names EXPLICITLY as the integers
+  # 1..n — automatic in all but storage. Shown, they were a "rowname" column of
+  # 1, 2, 3 and the header said 5 x 3 for a 5 x 2 frame (FINDINGS 2026-09-22
+  # B10). Only integer names are tested, so a character vector is never built.
+  if (explicit_rownames) {
+    raw_names <- attr(df, "row.names", exact = TRUE)
+    if (is.integer(raw_names) && identical(raw_names, seq_len(total_rows))) explicit_rownames <- FALSE
+  }
   total_cols <- data_cols + as.integer(explicit_rownames)
   data_col_cap <- max(0L, preview_cols - as.integer(explicit_rownames))
   shown_cols <- if (data_cols && data_col_cap) {
@@ -2768,6 +2783,11 @@ emit_dataframe <- function(id, df, source = NULL) {
     columns = I(names(head_df)),
     types = I(source_types),
     nrow = total_rows, ncol = total_cols,
+    # The frame's OWN width: row names are labels, not a variable, so the
+    # "n x m" a reader sees is nrow x dataCols (mtcars is 32 x 11, not 12).
+    # `ncol` keeps counting the displayed row-name column, which is what the
+    # column pager and `truncated` measure against.
+    dataCols = data_cols,
     shown = nrow(head_df), shownCols = ncol(head_df),
     truncated = total_rows > nrow(head_df) || total_cols > ncol(head_df),
     # jsonlite drops a NULL, so a frame with no name is byte-identical to what
@@ -3721,7 +3741,7 @@ beatrina_tools$View <- function(x, title = NULL) {
   # mtcars lives in the datasets package rather than the global environment.
   label <- if (!is.null(title)) title else deparse(substitute(x))
   assign(".beatrina_view", x, envir = globalenv())
-  emit_view("view-request", ".beatrina_view", label = label)
+  emit_view("view-request", ".beatrina_view", label = label, limit = VIEWER_PAGE_ROWS)
   invisible(NULL)
 }
 attach(beatrina_tools, name = "beatrina:tools", warn.conflicts = FALSE)

package/lib/engine-labels.js

@@ -118,6 +118,8 @@ export function versionMenuLabel(engine) {
  */
 export function kernelLanguage(info) {
   const declared = info && typeof info.language === "string" ? info.language.trim() : "";
+  // A host running no default engine (host-ready) runs no language: "".
+  if (!declared && info && info.host_only) return "";
   return declared ? engineKey(declared) : DEFAULT_ENGINE;
 }
 
@@ -154,6 +156,8 @@ export function kernelVersion(info) {
  * has always shown for a listener that named no version.
  */
 export function kernelDisplay(info) {
+  // The HOST is attached and no engine is its own (plans/getting_rid_of_R.md K2).
+  if (!kernelLanguage(info) && info) return "Beatrina";
   const label = engineLabel(kernelLanguage(info));
   const version = kernelVersion(info);
   return version ? `${label} ${version}` : `${label} session`;
@@ -216,6 +220,8 @@ export function reportedEngines(info) {
     if (row && !rows.some((seen) => seen.name === row.name)) rows.push(row);
   });
   if (!rows.length) return [];
+  // A host with no language of its own adds none.
+  if (!language) return rows;
   // The kernel's own language is always one of its engines — a session that
   // would not run its own language is not a thing, and a list that omitted it
   // would strand every chunk in the notebook.
@@ -239,7 +245,7 @@ export function reportedEngines(info) {
  */
 export function declaredEngines(info) {
   const language = kernelLanguage(info);
-  const out = [language];
+  const out = language ? [language] : [];
   reportedEngines(info).forEach((row) => { if (!out.includes(row.name)) out.push(row.name); });
   return out;
 }

package/menu/Beatrina Menu.app/Contents/Info.plist

@@ -6,8 +6,8 @@
   <key>CFBundleExecutable</key><string>Beatrina Menu</string>
   <key>CFBundleIdentifier</key><string>me.saqr.beatrina.menu</string>
   <key>CFBundlePackageType</key><string>APPL</string>
-  <key>CFBundleShortVersionString</key><string>0.9.43</string>
-  <key>CFBundleVersion</key><string>0.9.43</string>
+  <key>CFBundleShortVersionString</key><string>1.0.0</string>
+  <key>CFBundleVersion</key><string>1.0.0</string>
   <key>LSMinimumSystemVersion</key><string>13.0</string>
   <!-- Menu bar only: no Dock tile, no window, nothing to close by accident. -->
   <key>LSUIElement</key><true/>

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "beatrina",
-  "version": "0.9.43",
+  "version": "1.0.0",
   "description": "Beatrina is a modern, powerful, feature-rich integrated development environment (IDE) for R, Python, and JavaScript.",
   "type": "module",
   "bin": {
@@ -23,9 +23,10 @@
     "failsafe",
     "lib",
     "menu",
+    "app",
     "build-info.json",
-    "beatrina_V0.9.43.html",
-    "beatrina_V0.9.43.html.inputs.json",
+    "beatrina_V1.0.0.html",
+    "beatrina_V1.0.0.html.inputs.json",
     "README.md",
     "LICENSE",
     "NOTICES"